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IDENTIFICATION 


PRODUCT CODE:  AC-T8OO0A-MC 

PRODUCT NAME: CZDHXAO DHU-11 FUNC TST PART4 
PRODUCT DATE: 3 MARCH 1984 

MAINTAINER: ENE - DIAGNOSTICS GROUP 
AUTHOR ; ANTHONY HART 

MODIFIED 6y; 


THE INFORMATION IN THIS DOCUMENT IS SUBUECT 10 CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY OIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY oF 
SOFTWARE ON. EQUIPMENT THAT IS NOT SUPPLIED 37 cIcrIra: OR ITS 
AFFILIATED COMPANIES, 


COPYRIGHT (C) 1984 BY DIGITAL EQUIPMENT CORPORA! TON 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
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1.0 GENERAL PROGRAM CONSICERATIONS 


1.1 PROGRAM ABSTRACT 


CZDHXAO IS PART OF THE DHU-11 FUNCTIONAL VERIFICATION TEST. 
THIS PART OF THE TEST PERFORMS EXTENSIVE DATA TRANSMISSION AND 
RECEPTION TESTS. THIS PART ALSO INCLUDES A KEYBOARD ECHO AND 
MODEM LOOPBACK TES 


pti ae HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XxDP-, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER‘’S MANUAL. THERE TION OF 

THE RUNTIME SERVICES IN THE OPERATING INSTRUCTIONS -COMMANDS 

OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DHU-11 FVT; 


O UNIBUS PROCESSOR WITH AT LEAST 32k BYTES OF MEMORY . 
0 OHV BOARDS INSTALLED ON THE UNIBUS. 


APPROPRIATE PROGRAM LOAD DEVICE SUPPORTING xxDP. 
MEDIA OR A DOWN LINE LOADING SYSTEM. 


1,5 RELATED DOCUMENTS AND STANDARDS 


O XXDP+ USER’S MANUAL - DESCRIBES THE RUNNING OF DIAGNOSTICS 
UNDER THE XXDP+ MONITOR, 


1.4 OIAGNOSTIC HIERARCY PREREQUISITES 


THE PROCESSOR, THE UNIBUS, THE SYSTEM MEMORY, THE CONSOLE TERMINAL 
AND THE LOAD MEDIA ARE ASSUMED TO HAVE BEEN TESTED AND FOUND WORKING 
BEFORE THIS PROGRAM IS RUN, 
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2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIFTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS 


THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
( ISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER’S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INVE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY! ) 
ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 


CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION CIF IMPLEMENTED 
BY THE DIAGNOSTIC - SEE PERFOMANCE AND PROGRESS 
REPORTS SECTION OF THIS DOCUMENT) 


DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE FLAGS SECTION) 
ZFLAGS CLEAR ALL FLAGS (SEE FLAGS SECTION) 


A COMMAND CAN BE RECOGNIZED By THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”, 

MORE INFORMATION CAN BE FOUND WITHIN THE SECTION LABELLED 
EXTENDED COMMAND SYNTAX 
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2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED 10 MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD". 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF ph 
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7 
THIS LIST Pg CAUSE TESTS 1,5.7,8, 9. 16 TO 
BE RUN. ALL OTHER TESTS WILL Not BE RUN. 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS SET SPECIFIED FLAGS.SEE THE FLAGS SECTION 


OF THIS DOCUMENT 
EOP : DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11.12 CUNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS:1-5/PASS: 1000/E0P: 100 
TME EFFECT OF THIS COMMAND WILL 4 1) TESTS 1 gg ge aot BE 


pur ton CAN BE RECOGNIZED By THE FIRST THREE yard “YOU MAY, 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USEO BY EACH 
COMMAND , 


TESTS PASS FLAGS EOP UNITS 
START x x x x x 
RESTART x x x x x 
CONTINUE 4X x x 
PROCEED x 
OP x 
x 
INT 
DISPLAY x 
LAGS 
ZFLAGS 
EXIT 


PRoGAAM COeueewr 4 
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&.3 FLAGS 





AGS ARE 

SET USING THE FLAGS SWITCH. FLAGS 
ARE START COMMAND UNL 

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 


ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER*s INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR T » PC, TEST AND UNIT) 

IxRe INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’ 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ERROR 

VAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

Y TO DIAGNOSTICS WHICH DO NOT SUPPORT 


APPL 

STATISTICAL REPORTING) 
IOR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE = CODE 


HAVE EVALUATION SUPPORT ) 


*SEE THE ERROR INFORMATION SECTION OF THIS DOCUMENT. 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 


bi ne a THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 


TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 
/FLAGS :LOE : IER: BOE 


LOOP ON TES 
EVi EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


“EO 7 
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2.4 EXTENDED COMMAND SYNTAX 
2.4.1 START COMMAND - 


FEDEEOBDEDEEEEDEEDODD4666666666646666660066656060604644646644004 
STACRT )/TESTS: < TEST -LIST>/PASS: <PASS-CNI>/FLAGS: 
<FLAG-LIST>/EOP:<INCR> 


SPPBEREEBESEDEBEDEEEBEEEEED66O666666646466666466466646040446464646044 


2.4.1.1 TESTS SWITCH (/TESTS:<TEST-LIST>) - 


<TEST-LIST> IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES 
OF DECIMAL NUMBERS (1-5:8-10 ETC.), SEPERATED BY COLONS, THAT SPECIFY 
THE TESTS TO BE EXECUTED.TESTS WILL BE EXECUTED IN NUMERICAL ORDER 
REGARDLESS OF THE ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE 
ALL TESTS. ON THIS AND ALL SWITCHES, THE ANGLE BRACKETS <> ARE 
PUNCTUATION USED IN THE DEFINITION ONLY, AND ARE NOT TO BE TYPED By 
ji Te yaaa SEE EXAMPLE AT END OF “EFFECT OF START COMMAND ” 


2.4.1.2 PASS SWITCH (/PASS:<PASS-CNT>) - 


men a oe Page 2 NUMBER INDICATING THE DESIRED NUMBER 
CALL SELECTED TESTS). THE DEFAULT IS NON-ENDING EXECUTION. IN THIS 
CASE, EXIT FROM THE 

CONTROL/C OR BY OCCURANCE OF AN ERROR WITH THE HALT ON ERROR FLAG 
BEING SET. THE EXIT IS A RETURN TO COMMAND MODE. SEE EXAMPLE AT END 
OF “EFFECT OF START COMMAND” SECTION. 


2.4,1.3 FLAGS SWITCH (/FLAGS:<FLAG-LIST>) - 


<FLAG-LIST> IS A SEQUENCE OF ELEMENTS OF THE FORM <FLAG>, 
<FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> HAS ONE OF 
THE FOLLOWING VALUES; 


MOE HALT ON ERROR, CAUSING COMMAND MODE TO 
" hae aera WHEN AN ERROR IS ENCOUNTERED. 


LOE ERROR, CAUSING THE DIAGNOSTIC TO 
LOOP CONTINUOUSLY WITHIN THE SMALLEST 
DEFINED BLOCK OF CODING (SEGMENT, SUBTEST, 
OR TEST) CONTAINING THE ERROR. 

TER INHIBIT ERROR REPORT 
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TOU IWHIBIT DROPPING OF UNITS BY DIAGNOSTIC. 
(HAS NO EFFECT IN THiS DIAGNOSTIC.) 
LOT LOOP ON TEST. 
THE FLAGS NAMED OR EQUATED 10 1 ARE SET. THOSE EQUATED TO O ARE 
CLEARED. fA FLAG NOT SPECIFIED IS CLEARED. IF THE FLAGS SWITCH IS NOT 
GIVEN ALL FLAGS ARE CLEARED. SEE EXAMPLE AT END OF “EFFECT OF START 
COMMAND” SECTION. 


2.4.1.4 END OF PASS SWITCH (/EOP:<INCR>) - 


<INCR> IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED. THE 
DEFAULT IS AT THE END OF EVERY PASS. SEE EXAMPLE AT END OF “EFFECT OF 
START COMMAND” SECTION. | 


2.4.1.5 EFFECT OF START COMMAND - 


THE EFFECT OF THE START COMMAND IS 10 INITIATE THE HARDWARE 
PARAMETER DIALOGUE, THE SOFTWARE PARAMETER DIALOGUE, THE 
INITIALIZATION QUESTIONS, AND THEN THE DIAGNOSTIC COMMENCES TESTING. 


THE HARDWARE 

UNITS (0) 2?” TO WHICH THE OPERATOR SHOULD REPLY WITH THE NUMBER OF 
UNITS TO BE TESTED. FOLLOWING THIS ARE THE QUESTIONS WHEREBY THE 
P-TABLES THEMSELVES ARE BUILT. EACH P-TABLE IS A CORE -RESIDENT TABLE 
CONTAINING ALL THE HARDWARE INFORMATION FOR ONE COMPLETE UNIT.EACH 
QUESTION IS FOLLOWED BY THE RESPONSE RADIX (D FOR DECIMAL, B FOR 
BINARY, O FOR OCTAL, L FOR YES/NO) IN PARENTHESES AND THE DEFAULT 
VALVE AFTER THE PARENTHESES. FOR THE 

QUESTIONS SEE THE “HARDWARE PARAMETERS” SECTION. 


FOLLOWING THE HARDWARE QUESTIONS ARE THE SOFTWARE QUESTIONS TO 
BUILD THE SOFTWARE TABLES, WHICH DEFINE OPERATING PARAMETERS OF THE 
DIAGNOSTIC PROGRAM, THESE QUESTIONS ARE DESCRIBED IN THE “SOFTWARE 
PARAMETERS” SECTION. 


EXAMPLE ; 
STA/TESTS:1:3-4:/PASS:3/FLAGS: IER: HOE =1 


THIS COMMAND WILL CAUSE THREE PASSES IO BE MADE, WITH EACH PASS 
CONSISTING OF TESTS 1,3, AND 4. THERE IS NO DIFFERENCE BETWEEN SAYING 
<FLAG> AND SAYING <FLAG*1>, THE NOTATION “FLAG=0> IS MEANINGFUL ONLY 
ON A COMMAND OTHER THAN START TO CLEAR A FLAG THAT WAS PREVIOUSLY SET, 
NOTE THAT ON ALL COMMANDS ONLY THE FIRST THREE LETTERS ARE SCANNED, 
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2.4.2 RESTART COMMA - 


#PPOODEDEOOEOEEDEDDE66666666666666666466666566666604664664800% 
RES( TART )/ TESTS: < TEST -LIST>/PASS: <PASS -CNT>/FLAGS:- 
<FLAG-LIST>/UNITS: <UNIT-LIST> 


ow SPBOSEOEOOSEBEBDEEEBESDSEEEEEE66666664666666664646466660604464646 


2.4.2.1 TESTS, PASS, AND FLAGS SWITCHES - 
«TEST -LIST>, <PASS-CNT>, AND <FLAG-LIST> ARE AS IN THE START 


-2.2 UNITS SWITCH (/UNITS:<UNIT-LIST>) - <UNIT-LIST> IS A SEQUENCE 
DECIMAL NUMBERS (0,1 ETC.) OR RANGES OF DECIMAL NUMBERS CO-S, 8-10 
) THAT SPECIFY THE UNITS TO BE TESTED. THE NUMBERS ARE SEPARATED 
BY COLONS. THE MAY RANGE FROM O THRU N-1 (N IS THE NUMBER OF 
UNITS SPECIFIED IN THE PREVIOUS START COMMAND). THE NUMBER INDICATES 
THE POSITION OF THE P-TABLE AS THE DATA wAS ENTERED DURING THE 
HARDWARE 0 - THE UNITS WHICH ARE SELECTED MUST NOT HAVE BEEN 
eee BY THE 


e.4 

OF 

ETc. 
y 








- SEE THE DISCUSSION OF ADD AND DROP 
BELOW. DEFAULT IS TO TEST ALL UNITS WHICH HAVE NOT BEEN 
DROPPED BY A DROP COMMAND. 








2.4.2.3 EFFECT OF RESTART COMMAND - 


THE RESTART COMMAND DIFFERS FROM THE START COMMAND IN THAT THE 
pri FROM THE PREVIOUS START COMMAND (THERE MUST HAVE BEEN ONE ) 

















USED, INSTEAD OF NEW ONES BEING BUILT. THE UNITS SWITCH SHOULD 
NOT BE une WITH THIS PROGRAM, THE SOFTWARE DIALOGUE MAY OPTIONALLY 
BE REEXECUTED (OPERATOR WILL BE ASKED). THE COMMAND CAN BE USED AFTER 
Cc MODE WAS BEEN REENTERED IN ANY OF THE THREE NORMAL WAYS: A) 
THE RE TED NUMBER OF PASSES WAVE BEEN MADE, 8) AN ERROR WAS 
ENCOUNTERED WITH THE WALT ON ERROR FLAG SET, OR C) A CONTROL/C WAS 
ENTERED BY THE OPERATOR. 


2.4.5 CONTINUE COMMAND - 


SOFRODEREEEEDEEDEEEDEAEDEDSEDEEASEADDODEDASELEREDRESDLESEELE 


CONC TINUE )/PASS: <PASS-CNT/FLAGS: <FLAG-LIST> 


SOOOCROODDEEOEO66600006000000606666800400009666466000000004886 


2.4.3.1 FLAG SWITCH (/FLAGS:<FLAG-LIST>) - 


“FLAG-LIST> IS SAME AS IN THE START COMMAND, BUT UNSPECIFIED 
FLAGS RETAIN THEIR CURRENT VALUE. 
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2.4.3.2 EFFECT OF CONTINUE COMmIAND - 


CONTINUE MIST FOLLOW A START OR RESTART. AND COMMAND MODE MUST 

HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A CONTROL/C. THE EFFECT 

OF THE COMMAND IS TO GO 10 THE BEGINNING OF THE TEST THAT WAS BEING 

aoTimon WHEN THE HALT OR CONTROL/C TOOK PLACE. SOFTWARE DIALOGUE MAY 
OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS MAY NOT BE CHANGED. 


2.4.4 PROCEED COMMAND - 


PAOCCRRDS/PLAGE CUPL A te ete eteeeseccccese 


PROC CEED)/F LAGS: <FLAG-LIST> 


st ro iE tn 


2.4.4.1 FLAGS SWITCH (/FLAGS:<FLAG-LIST>) - 


FLAG-LIST> IS = IN THE START COMMAND, BUT UNSPECIFIED FLAGS 
RETAIN THETR CURRENT VALUE. 


2.4.4.2 EFFECT OF PROCEED COMMAND - 


PROCEED MUST FOLLOW A os RESTART, OR CONTINUE. COMMAND MODE 
MUST HAVE BEEN ENTERED VIA A HALT ON ERROR. THE EFFECT OF THE COMMAND 
IS _ TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE ERROR CALL. 
NETTHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 


2.4.5 ADD COMMAND - 


SEOCRDEOOEEDEREDEEEREDEEDEEEDEDEDAADDDOREEADEDAEDAEALELEDEEDE 


ADD/UNITS: <UNIT-LIST> 


SPOREREROEEREODEOSASSEEEEADEEEDEEEDEDERESDEDEEDRERERDADEERLE 


2.4.6 EFFECT OF ADD COMMAND - 
THE UNITS “pee of IED ARE ADDED TO THE TEST SEQUENCE. EACH 
UNIT MJST noe ae IN MEMORY DUE TO AN EARLIER 


HARDWARE ALOGUE. COMMAND MUST BE FOLLOWED BY A 
ie on CONTINUE i The SUNETS. SulTCN MUST BE SPECIFIED. 
PREVIOUSLY DROPPED. 





ONLY FOR UNITS THAT WERE 


2.4.7 DROP COMMAND - 


DROCP PUNT TS COMET re ee eteeaeeeanaeenssserseansaenens 


DROCP )/UNITS: <UNIT-LIST> 


SAAaeUMAaRAAMUNONE TE bAgnaddbhiebdencicbacskddeceosacce cc: 
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2.4.6 EFFECT OF DROP COMA - 

THE UNITS SPECIFIED WILL BE DROPPED FROM TESTING. THE UNITS 
SE RESELECTED ONLY BY THE EXECUTION OF AN ADD OR START 

COMMAND. THE UNITS SWITCH MUST BE ENTERED. THIS COMMAND 

MUST BE FOLLOWED BY A RESTART OR A CONTINUE COMMAND. 


2.4.9 PRINT COMMAND - 


SEBEBEEEEBEBEBREBEBEDBEBLEDEDLODG$6466464666666666664666646404464646406% 


PRICNT) 


FPEPREEBBEBBEEEEBEBEDELEOEEEOD666646646666666664664646666444064664 


2.4.9.1 EFFECT OF PRINT . 

THE TOTAL OF ERRORS FOR EACH UNIT SINCE THE LAST 
START OR RESTART COMMAND ARE PRINTED. THE ISR CINHIBIT 
STATISTICAL REPORTING) FLAG IS CLEARED. 


2.4.10 DISPLAY COMMAND - 


SEPAEDEBEBEEEBREBEDEEEEDAEAAEEDESODADDSEDEDEDEDREDALEERADAELA 


DISC PLAY )/UNITS: <UNIT -LIST> 


SHRDEORDEEDEBREREBSESESESBEOASEDOSEDADEEEEEDADERAEAREALLEALS 


THE HARDWARE P-TABLE FOR THE TEST STATION IS PRINTED IN THE 
FORMAT IN WHICH IT WAS ENTERED. 


2.4.11 FLAGS COMMAND 2 


SEEEOEEEEREAEEDDERDSSEREDEAEREDEDRESARE ERE EDASERALEEEREDEES 


FLACGS) 


SERSAAOAODAERAOASEEDEEEREEAEEEREDEDAREDREDESOAEEDDEREDAREDAS 


2.4,11.1 EFFECT OF FLAGS COMMAND - 
THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 


IN i 
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2.4.12 ZFLAGS 


$6066606606006060666666060000000060000000000800000000C000ce 


ZFLC AGS) 


PEPREBEBEEBDEBEBEEDBEODD6646466666666666666666466466664664606000604 


2.4.13 ZFLAGS COMMAND ” 
ALL FLAGS ARE CLEARED. 


2.4.14 CONTROL CHARACTERS - 


C A CONTROL/C (C) ENTERED DURING THE EXECUTION OF A 
DIAGNOSTIC CAUSES A RETURN TO COMMAND MODE. 











A_ CONTROL/Z (Z) ENTERED + pee ONE OF TwO 
OPERATOR OIALOGUES-- HARDWARE P-TABLE DIALOGUE OR 
SOFTWARE P-TABLE DIALOGUE CAUSES THe DEFAULTS TO BE 
TAKEN FOR THE REMAINDER OF THAT DIALOGUE. 


A CONTROL/O (0) ENTERED DURING THE EXECUTION OF A 
DIAGNOSTIC CAUSES ALL TELETYPE OUTPUT 10 BE 
SSED FOR THE REMAINDER OF THE DIAGNOSTIC OR 
UNTIL ANOTHER CONTROL/O IS TYPED, WHICH RESTORES 
NORMAL TELETYPE OUTPUT, 







Batch iE aban?" 
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2.5 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE MW CL) 2?” 
YOU MUST ANSWER “Y~ AFTER A START COMMAND UNLESS THE 
INFORMATION HAS BEEN “PRELCADED” USING THE SETL© UTILITY (SEE 
CHAPTER MANUAL WHEN YOU ANSWER THIS 


RUN 
OF UNITS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


CSR ADDRESS - THIS QUESTION REQUESTES THE CSR ADDRESS OF THE 
SPECIFIED OHU-11. THE DEFAULT ANSWER FOR THIS QUESTION IS 
ADDRESS 160460 (OCTAL). 


INTERRUPT VECTOR ADDRESS - THIS QUESTION REQUESTS THE INTERRUPT 
VECTOR ADDRESS OF THE SPECIFIED DHU-11. THE DEFAULT ANSWER 
FOR THIS QUESTION IS 310 (OCTAL). 


ACTIVE LINES BIT MAP - THIS QUESTION REQUESTS AN OCTAL BIT 
MAP OF THE AL 


SERIAL COMMUN 
BEING SELECTED FOR TESTING. IF THE BIT IN THE BIT MAP IS Set 
WHICH CORRESPONDS TO A PARTICULAR LINE ( I.E. BIT 5 FOR LINE 
> ) THAT LINE WILL BE TESTED BY THE FVT. THE DEFAULT ANSWER 
FOR THIS QUESTION IS ALL LINES I.E. 177777. 


TYPE OF LOOPBACK (1*INTERNAL, 2°H3029 OR H3277, 3*H325 
4*MODEM, S*KEYBOARD ECHO). 

THIS QUESTION REQUESTS THE TYPE OF LOOPBACK TO BE USED WHEN 

TESTING THE DHU-11., 

THE FOLLOWING TYPES ARE SUPPORTED: 


O INTERNAL - ONLY INTERNAL UART LOOPBACK IS TO BE USED IN 
TESTING THE DMU-11. 


O W3029 OR H3277 - STAGGERED LOOPBACK CONNECTORS ARE PROVIDED 
ON THE DHU11 DISTRIBUTION PANEL (H3029) IF THIS DISTRIBUTION 
PANEL IS NOT PRESENT THEN H3277 STAGGERED BERG CONNEC TOR(S ) 


MUST BE INSTALLED ON THE BERG CONNECTOR SOCKETS OF THE OMU11, 


O H325_ - SINGLE LINE, 25 PIN LOOPBACK CONNECTORS (TYPE H3525) 
ARE INSTALLED ON THE LINES TO BE TESTED. 


CONTROL ) S 
ACTIVE. THIS IS A SPECIAL TEST AND ALL OTreR TESTS IN THIS 
PART WILL BE PERFORMED IN INTERNAL LOOPBS.CK. 


© KEYBOARD ECHO - THE UARTS ON THE OUT ARE PLACED IN REMOTE 
LOOPBACK. TERMINALS (OR OTHER COMMUNICATIONS EQUIPMENT ) 
he MAVE WHATEVER THEY TRANSMIT TO THE DHU LOOPED BACK To 


“£9 14 


PER ites’ MME hed 148 14 
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<.6@ SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE 


RUNTIME SERVICES WILL ASK FOR SOFTWARE 


COMMAND, THE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME a > abies 
L " 


OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE Sw ( 
If YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 


“Y". THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 


IN THE NEXT PARAGRAPH(S). 


REPORT UNIT NUMBER AS EACH UNIT IS TESTED - THIS QUESTION ASKS 
WHETHER THE PROGRAM SHOULD REPORT THE NUMBER OF THE UNIT WHICH 
IT IS TESTING AS IT BEGINS TO TEST THAT UNIT. 


REPORT NUMBER OF BITS TESTED IN DMA ADDR TEST - THIS QUESTION 
ASKS WHETHER THE OPERATOR WANTS A PRINTOUT DESCRIBING WHICH 
‘“—__ HAVE BEEN TESTED WHEN THE DMA ADDRESSING TEST 


ACH ERROR REPORTED. THE DEFAULT IS “NO” I.E. ONLY 
camntie REPORTING THE FACT THAT THE TEST FAILED WILL BE 


“EQ 1% 


Uc 
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<7’ EXTENDED P-TABLE DIALOGUE 
a YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 





MASS STORAGE 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCe MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE 
IS ONE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILO A TABLE FOR ONE XY11 WITK EIGHT UNITS. 


® UNITS (0D) ? 8<CR> 
1 
CSR ADDRESS (0) 160000<CR> 


0) ? 
SUB-DEVICE @ (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


Te2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE ® (0) ? 2<CR> 
Q-FACTOR (0) 0 2? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 3<CR> 
Q-FACTOR (0) 0? «<CR> 


>? 160000<CR> 
SUB-DEVICE © (0) . 4<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 6 
CSR 160000<CR> 


ADDRESS (0) ? 
SUB -DEVICE @ (0) ? 5S<CR> 
Q-FACTOR (0) 0 ? <CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (06) 0 ? 1<CR> 


PROGRAM EOcuMeNT "4 


ce 
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UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-OEVICE @ (0) 2? 7<CR> 
Q-FACTOR (0) 1 2? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
tie THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


© UNITS (D) ? 8<CR> 


1 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


T 3 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES wILt 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR SS _ IS 160000 FOR BOTH SINCE IT 


WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR ENTRIES WERE 
BU CAUSE FOUR VICE 





T WOULL ADDRESSES MU 
BE ON Y.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS, 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


® UNITS (0) ? &«<CR> 


“EO 17 
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1 
CSR ADDRESS (0) 2? 160000<CR> 
SUB-DEVICE @ (0) ? 0-7<CR> 
Q-FACTOR (0) 4) ? O,1..0, occhei<tR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES CCOMMAS ENCLOSING 
A WULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.8 QUICK START-UP PROCEDURE (XXxDP-) 
TO START-UP THIS PROGRAM: 
1. BOOT XxOP- 
2. GIVE THE DATE AND ANSWER THE LS‘/UNIBUS AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS. NOTE, NOT ALL VERSIONS OF XXDP+ ASK 
FOR THE CLOCK FREQUENCY 
TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR 
BIC FILE FOR THIS PROGRAM 
4, TYPE “START” 
5. ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
6. ANSWER ALL THE HARDWARE QUESTIONS 
7, ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. FOR DEFAULT INFORMATION 
SEE THE SECTIONS WITHIN THIS DOCUMENT ON F LAGS,AND HARDWARE QUESTIONS. 


oc 
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3.0 ERROP INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 

ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SEE THE FLAGS SECTION 
OF THIS DOCUMENT). 


THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: Xxxxxx 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE are FATAL, DEV FATAL, HARD OR SOFT) 


NUMBE ERROR 

UNIT NUMBER = © - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC: XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
NOG? OR “IBR” FLAGS ARE SET (SEE THE FLAGS SECTION OF THIS 


DOC * 

THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 
EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, i OR “IXR” FLAGS ARE SET (SEE THE 


S DOCUMENT). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


1 ic 
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3.2 SPECIFIC ERROR MESSAGES 


THIS PROGRAM IS INTENDED 'O PROVIDE A GO/NOGO INDICATION 
OF THE FUNCTIONALITY OF THE DHU-11 BOARDS. TO EXECUTE THE 
PROGRAM IN THIS MODE THE OPERATOR NEED ONLY ANSWER THE 
“EXTENDED ERROR REPORTING” SOFTWARE QUESTION WITH "NO", THE 
PROGRAM WILL THEN ONLY PRINT THE NAME OF THE FAILING TEST 
THE TEST AND ERROR NUMBERS. 

IN THIS PROGRAM SEE THE TEST SUMMARIES SECTION OF THIS 
DOCUMEN AN EXAMPLE OF 


a 
FOLLOWING: 


CZOHX OVC FTL ERR 4409 ON UNIT 00 TST 04 SUB 000 PC: XXXXXX 
DMA ADDRESS TEST FAILED 


THIS ERROR INDICATES THAT A FATAL ERROR WAS ENCOUNTERED 
DURING THE TEST WHICH TESTS THE DMA_ABORT BIT. 


If THE OPERATOR HAD REQUESTED EXTENDED ERROR REPORTING THE 
SAME ERROR WOULD BE REPORTED AS FOLLOWS: 


CZDHX DVC FTL ERR 4409 ON UNIT 00 TST 04 SUB 000 PC: XXxxxxx 
DMA ADDRESS TEST FAILED 
BAD BITS BETWEEN BITS O AND 15. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF E REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE ENO 

OF PASS MESSAGE IS PRINTED. FOR FUTHER INFORMATION SEE THE 
SWITCHES SECTION OF THIS DOCUMENT. | 


Bibl’ UBbuddu**™ 
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5.0 TEST SUMMARIES 
THE FOLLOWING ARE INCLUDED WITHIN CZDHxA: 


1. 


DEVICE REGISTER ACCESS TEST - VERIFIES THAT THE UUT REGISTERS 
WILL RESPOND WITH THE CORRECT UNIBUS HANDSHAKING SIGNALS. 
VERIFIES THAT THE UUT IS AT THE CORRECT ADDRESS. 


KEYBOARD ECHO TEST - ALLOWS THE OPERATOR TO TEST TERMINAL LINKS 
(OR OTHER COMMUNICATIONS LINKS), WHICH ARE ATTACHED TO UuT 
SERIAL PORTS, FROM REMOTE ENDS OF THE LINKS. 


MODEM LOOPBACK TEST - ALLOWS THE OPERATOR TO TEST MODEM LINKS 
WHICH ARE ATTACHED TO THE UUT SERIAL PORTS. 


DMA ADDR TEST - VERIFIES THAT THE UUT CAN ACCESS THE FULL 
MEMORY WHICH IS ON THE MACHINE VIA DMA ACCESS. 


FRAMING ERROR TEST - VERIFIES THAT FORCED FRAMING ERRORS ARE 
REPORTED CORRECTLY. 


PARITY ERROR TEST - VERIFIES THAT FORCED PARITY ERRORS ARE 
REPORTED CORRECTLY. 


OMA MODE TEST - VERIFIES THAT THE UUT WILL Tx AND RX DATA 
CORRECTLY USING DMA TRANSMISSION. 


SPLIT SPEED TEST - VERIFIES THAT THE UUT WILL FUNCTION 
CORRECTLY USING DIFFERENT Tx AND RX SPEEDS ON EACH ACTIVE LINE, 


REPORT BMP CODES TEST - THIS PSEUDO TEST REPORTS yee 32 


EXECUTION OF THE OTHER TESTS. THIS AVOIDS INTERRUPTION OF THE 
OTHER TESTS BY THESE CODES IF THEY ARE NOT CRITICAL TO THE 
PERF ORMANCE 
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6.0 EXAMPLE ERROR FREE PASS 
THE FOLLOWING IS AN EXAMPLE OF AN ERROR FREE PASS DIALOGUE : 


-R CZDOHKAO 
CZDHXAO.BIN 
ORS 


CZDHX-A-O 
OHMU-11 FUNC TST PART4 


1s -11 
RESTRT ADDR: 147670 
DR>STA/PAS:1 


CHANGE HW (L) ? Y 
® UNITS (0D) 7? 2 


UNIT O 

CSR ADDRESS: (0) 160460 ? 1Z 
UNIT 

CSR ; 160460 


ADDRESS: (0) ? 160500 
INTERRUPT VECTOR ADDRESS: (0) 310 ? 320 
ACTIVE LINE BIT MAP: (0) 177777 ? <CR> 
TYPE OF LOOPBACK CLS INTERNAL. 2*H3029 OR H3277, —. 
4=MODEM, 5=KEYBOARD ECHO): (0) 2 1 

CHANGE SW (L) ? Y 
REPORT UNIT NUMBER AS EACH UNIT IS TESTED: (L) Y ? <CR> 
REPORT NUMBER OF BITS TESTED IN OMA ADDR T TEST: (L) N ? «<CR> 
EXTENDED ERROR REPORTING: (L)N ? <CR> 

TESTING UNIT : O 

TESTING UNIT : 1 


CZDHxX EOP 1 
© TOTAL ERRS 


DR> 


ae Se er ante 


002000 
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-LIST SEQ,LOC.BIN,MEB 
NLIST CND 


-SBTTL PROGRAM HEADER 


; IF STRUCTURED MACROS 


-MCALL SvC 
Svc 


; INITIALIZE SUPERVISOR MACROS 


ARE TO BE USED, ADD “.MCALL STRUCT” AND “STRUCT” 


TO INITIALIZE THE STRUCTURED MACROS. 


SVCINS= 1 ; LIST INSTRUCTIONS, SHIFTED RIGHT 
SVCTST= 1 ; LIST TEST TAGS, SHIFTED RIGHT 
SVCSUB= 1 ; LIST SUBTEST TAGS, SHIFTED RIGHT 
SVCGBL= 1 ; LIST GLOBAL TAGS, SHIFTED RIGHT 
SVCTAG= 1 ; LIST OTHER TAGS, SHIFTED RIGHT 
3 CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 
3 TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 
3 SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS YOU MAY 
5 CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM. 
; 
-ENABL ABS 
; .ENABL 
: = 2000 
BGNMOD 
3e* 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
| dd 
POINTER BGNRPT ,BGNSW,BGNSF T,8GNDU, ERRTBL 
HEADER CZDHX,A,0,200,0,PRIO7 
LSNAME:: 
~-ASCII /C/ 
eASCII /2Z/ 
-ASCII /D/ 
-ASCII /H/ 
~ASCII /X/ 
-BYTE 0 
BYTE 0 
BYTE 0 
LSREV:; 
~ASCII /A/ 
LSDEPO:: 
. /QO/ 
LSUNIT:: P 
LSTIML::; 


PROGhAN reaver PART4 


030430 
000000 
005374 
104035 
005314 
027574 
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. WORD 
LSHPCP: : 
. WORD 
L$SPCP:; 
. WORD 
LSHPTP:; 
. WORD 
L$SPTP:; 
. WORD 
LS$LADP:;: 
. WORD 
L$STA:: 
. WORD 
L$CO:: 
. WORD 
LSDTYP:: 
. WORD 
LSAPT:: 
. WORD 
LSDOTP:: 
» WORD 
LS$PRIO:: 
. WORD 
LSENVI:: 
» WORD 
LSEXP1:: 
. WORD 
LSMREV:: 
BYTE 
BYTE 
LSEF:;: 
2 WORD 
- WORD 
L$SPC:;: 
. WORD 
L$DEVP:: 
. WORD 
LSREPP; : 
» WORD 
LSEXP4:: 
» WORD 
LSEXPS:; 
» WORD 
LSAUT:;: 
L$DUT:: 
LSLUN:: 
. WORD 
LSDESP:; 
. WOR 
LSLOAD: ; 
MT 
LSETP:; 
LSICP:: 
» WORD 


¢ a - 
GQ 24 


290 

L SHARD 
L$SOFT 
L $Hw 
L$Sw 
LSLAST 
0 

0 

0 

0 
LSDISPATCH 
PRIO?7 
0 

0 


CSREVISION 
CsEDIT 


0 
0 


0 
LSOvTYP 
LSRPT 

0 

0 

0 

L sD 

0 
Ls$DESC 
ESiOAD 
L SERRTBL 
LSIntit 


Bibel Woda’ Pa" 
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LSCCP:: 
LSACP:; 
LSPRT:; 
LSTEST:; 
LSDLY:; 
LSHIME: ; 


LSCLEAN 
LSAUTO 
L$PROT 
0 

0 

0 


SEQ 24 


Biveltchtaelé™ *a*" 


1092 

1093 

1094 

1095 

1096 

1097 

1096 

1099 002122 
002 000011 
002124 
002124 Oo 
002126 
002130 031272 
002132 
002134 035710 
002136 
002140 0 4 
002142 035770 
002144 0 


1100 
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-S6TTL OISPATCH TABLE 


zee 
; THE DISPATCH TABLE CONTAINS THE S ARTING ADDRES om 

s If IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TE TE st — 
g-¢ 


DISPATCH 9 


: 


LSDISPATCH: : 


55555558 


=F 
-— 

a ee $‘ 
ee pe pe > 


Pb © be pe me pe ee he 
ol ial a et od 


P be he es 


> b= pe pe pe pe pe 
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CH TABLE 
3 
‘ -SBTTL DEFAULT HARDWARE P-TABLE 
ii4 3** 
20 ; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
Pp | s THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
22 s IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
< s AND IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 
g-- 
25 
26 002146 BGNHW 8 DFPTBL 
002146 000004 -WORD L10000-L $Hw/? 
002150 L SHW:: 
, 002150 OFPTBL:: 
86 002150 160460 -WORD 160460 ;DEFAULT CSR ADDRESS 
9 002152 0003510 -WORD 310 sDEFAULT VECTOR ADDRESS 
50 002154 177777 -WORD 177777 ;DEFAULT ACTIVE LINES BIT maP 
31 002156 002 BYTE 2 ;sDEFAULT LOOPBACK MODE 
32 -EVEN 
33 002 


160 
002160 L 10000; 


> pe o- 


Pb be pe pe bp « pe pe pe 
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1 HARDWARE P TABLE EO 26 


: -SBTTL SOFTWARE P-TABLE 
46 soe 
147 3 THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 
148 s PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
4% s SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 
50 3; AT RUN TIME. 
51 3-- 
52 
3 002160 BGNSW SFPTBL 
002160 000002 - WORD L10001 -.. $Sw/2 
002162 L$Sw:: 
54 00216? SFPTBL:: 
55 002162 000020 OPTION: : . WORD 20 sBIT MAP OF PROGRAM CONTROL FLAGS 
2% 002164 000000 NDERPT: : . WORD @) sDEFAULT NUMBER OF INDIVIDUAL DATA ERRORS TO RPT. 
58 002166 ENDSW 


002166 10001; 


CBF tbhak BCs Aa P ART 


1207 
L222 002166 


000020 
177777 
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-SBTTL GLOBAL EQUATES SECTION 


s*? 


3; THE GLOBAL EQUATES SEC 
; ARE USED IN MORE T 


3 #220466 


3 #200684 


NUMLNNS = =20 
MAPLNS=+177777 


DEVICE REGISTER 
CSRO== 


RBUFO==2 
RXTIMO==2 
LPRO==4 
FSLSO==6 
FDATO=<6 


LNCTRO==10 
TXAD10-=12 
TXAD20==14 
TXBFCO==16 


TION CONTAINS PROGRAM EQUATES THAT 
ONE TEST. 


sNUMBER OF LINES ON DOHV11 IS 8. 
sS3IT MAP OF LINES ON DHV11. 


OFFSETS FROM THE CSR'S ADDRESS seeceee 
sCSR REGISTER OFFSET FROM THE CSR ADDRESS 


AMETER REGISTER OFFSET FROM THE CSR ADDRESS 

sFIFOSIZE/STATUS REGISTER OFFSET FROM THE CSR ADDRESS 

sFIFODATA REGISTER OFFSET FROM THE CSR ADDRESS 

sLINE CONTROL REGISTER OFFSET FROM THE CSR ADDRESS 
ADDRESS 1 REGISTER OFFSET FROM THE CSR ADORESS 

sTRANSMIT ADDRESS 2 REGISTER OFFSET FROM THE CSR ADDRESS 

s TRANSMIT COUNT REGISTER OFFSET FROM THE CSR ADDRESS 


EQUATES USED WITH RESPECT TO THE RX BUFFER eecece 


RXBETX==16, 
RXBOTX==24, 
RXBFUL ==64, 


EQUALS 


; 
; BIT DIF INITIONS 


sLEVEL OF RX BUFFER AT WHICH TO RE-ENABLE TRANSMISSION, 
sLEVEL OF RX BUFFER AT WHICH TO DISABLE TRANSMISSION, 
sTOTAL CHARACTER CAPACITY OF THE RX BUFFER. 


SEQ 29 


l223 
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BITS<-= 
BIT4<-< 
BIT3<= 
BIiT2=-= 
BiTi-= 
BITO-= 


3 
s EVENT FLAG DEFINITIONS 
s EF 32:EF 17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


é 

EF .START== 32. ; START COMMAND WAS ISSUED 

EF .RESTART == 31. ; RESTART COMMAND WAS ISSUED 

EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED 

EF .NEW=-= 29. ; A NEW PASS HAS BEEN STARTED 

EF .PWR== 26. ; A POWER-FAIL/POWER-UP OCCURRED 


é 
; PRIORITY LEVEL DEFINITIONS 


. 

PRIO7== 340 
PRIO6== 300 
PRIOS== 240 
PRIO4== 200 
PRIO3S== 140 
PRIO2== 100 
PRIO1L== 40 
PRIOO== 0 

5 

sOPERATOR FLAG BITS 
3 

EVL«= 4 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE == 400 
PNT == 1000 
PRI== 2000 
IXE#= 4000 
IBE== 10000 
TER== 20000 
LOE== 40000 
HOE == 100000 
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304 
000377 


031463 
146314 


"7" 
ON 


-SBTTL GLOBAL DATA SECTION 


3** 

; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 

| ds 


5 OPPRSSEBSESSSEEBEEEDESESEREESEEOEEESEREREDEDEEEEEEREEDREEERERDREEERELOLS 


; UNIT VARIBLE AREA 


5 OOPSERESSSESEEEESESOSESESSEASODEEROEEEEREEEDEDEEEDREREDEDRDEESEESEDEO‘S 


RXVECA:: .WORD 300 sRX VECTOR ADDRESS. 

TXVECA:: .WORD 304 s™X VECTOR ADDRESS. 

ACTLNS:: .WORD 377 sACTIVE LINE BIT MAP. 
LOPBCK:: .BYTE 0O sLOOPBACK MODE 

BRLEVL:: .BYTE 4 s INTERRUPT BUS REQUEST LEVEL 
UNITN:: .WORD 0 sUNIT NUMBER. 


5 PPESSESORSSEEEESEDEESSSESESEDEESEEEEDADEEODEDREARDDHAEREEEDEREREEADREED‘E 

$ DEVICE REGISTER ADDRESS TABLE 

§ PORSOROSOSESASEEEASESEREEEREREEEDASADDDDREEDADEDDEDRDEDERDERDDARLDALSS 
DRADRT: : 
CSRA:: .WORD 

RXTMA:: RBUFA:: .WORD 
LPRA:: .WORD 160024 ;DHU-11 LINE PARAMETER REGISTER ADDRESS. 

FDATA:: FSLSA:: .WORD 160026 ;DHU-11 FIFO SIZE/LINE STATUS REGISTER ADDRESS, 

ADDRESS. 


LNCTRA:: . 
TXADIA:: .WORD 

TXAD2A:: .WORD 160034 ;DHU-11 TRANSMIT BUFFER 2 REGISTER ADDRESS 
TXBFCA:: .WORD 


i AAOOOEORESESESDESEEOSEDEOSSSEDEEEEDOEASADDEDEDEDDEDEDEEDEDDREDEDDDDEEEESEEOO‘S 


; ASSORTED GLOBAL VARIABLES: 


i MPOPORAPEEESSELEDSESEDESEROSEEEEDADEDEDEDADDAEDDDEDDEREDEDDERALERDESRASEDEEEEE 


CTRLCF:: .WORD 0 sSTORAGE FOR THE CONTROL -C FLAG. 

OMTSTA:: .WORD 0 sSTO'G FOR DMA TEST ADDRESS (IN PAR FORM). 

FERROR:: .WORD 0 sSTORAGE FOR “AT LEAST ONE ERROR” INDICATOR. 

FFREM:: .WORD 0 sSTO'G FOR ADR OF FIRST FREE WORD AFTER THE OIAG' Tic 
7: .WORD O sWORD FOR GMANXX CALL RETURN PARAMETERS, 

IBM: ; »WORD O sINACTIVE TX/RxX BITS MASK. 

IESTAT:: .WORD 0 sSTORAGE FOR STATES OF THE DUT INT ENABLE BITS. 

LGRPIM:: .WORD 31463 ;BIT MAP OF LINES IN LINE : 

LGRPOM:: .WORD 146314 ;BIT MAP OF LINES IN LINE GR ° 

PASCNT:: ,.WORD 0 sSTO’G FOR PASS COUNT USED IN ROM VERSIONO TST. 

PMSFLG:: .WORD 0 sFLAG INDICATING WHETHER TO PRINT MODEM STATUS. 

RXTOUT:: .WORD 0 sTIME-OUT VALUE FOR WAITING FOR LAST Px CHAR. 

SAVPRI:: .WORD 0 sSTO’G FOR PROCESSOR PRIORITY, (TXROFF, TXRON). 

SAVTEN:: ,WORD 0 sSTORAGE FOR TX.ENABLE STATES, (TXROFF, TXRON). 

TP4FLG:: .WORD 0 sFLAGS SET WHEN AN EXPECTED 004 TRAP OCCURS. 

TP4VEC:: .WORD 0 sSTORAGE FOR THE NORMAL 004 TRAP VECTOR, 

TSTNUM:: .WORD 1 sSTORAGE FOR THE TEST NUMBER, 

TXENBM:; .WORD 0 sSTORAGE FOR TX,ENABLE STATES, (BUFFER MGM NT), 

TXINTF:: .WORD 0 sSTORAGE FOR TRANSMIT INTERRUPT FLAGS, 
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rps +4 002266 9000000 WORDI:: .WORD oO sLOCATION FOR PASSING INDIRECT PARAMETERS. 
1291 5 COOSSEBORSEESSEEEESESESELESESSESESOSESEDEREEEEDEEEREEEDEEEEDEEEDDEEEEEEEDEEDOSOESS 
1292 3 LINE TIME CLOCK VARIABLES AND STORAGE. 
1293 5 OOORSOSPRSPESESEDSSEEEESOSESESESESOOEESEDEESS LEREEEDADEDEEDEEEEEEEDEESEEESCEES 
1294 002270 177546 CLKCSR:: .WORD 177546 ;CSR ADDRESS OF THE La 
1295 002272 000300 CLKBRL:: .WORD PRIO6 s INTERRUPT PRIORITY LEVEL OF THE LIC. 
1296 002274 000100 CLKVEC:: .WORD 100 : INTERRUPT VECTOR ADDRESS OF THE LTC. 
1297 002276 000074 CLKHRZ:: .WORD 60. : INTERRUPT FREQUENCY OF THE Lf. 

2500 TIMERI:: .WORD Oo sHARDWARE CLOCK COUNTER @1. 
1299 002302 TIMER2:: .WORD 0O sHARDWARE CLOCK COUNTER @2. 

2304 000170 TIMERS:: .WORD 120. - AK COUNTER LOCATION. 
1301 002306 000170 BCOUNT:: .WORD 120. sBREAK COUNT VALUE IN CLOCK TICKS. 
1302 002310 000021 MSTICK:: .WORD 17. sNUMBER OF MILLI-SECONDS PER LIC TICK. 
pe 002512 00006 MSLCNT:: .WORD 62 sLOOP COUNT CUSED BY MSLOOP) TO DELAY 1 MS. 
1305 5 COPPERSOSOSSSSESELEEEEESESORERESEERSSEOEEDASODEDREDEDERADEDEDEEDOEREEEACEEOOES 
1306 MEMMORY MANAGEMENT VARIABLES AND FLAGS. 
1307 5 OOOREEAODESSSDEEESEDEDERERESSERASESEEEDDAREOSERDAERADEDERAREALDRSEALEEEEEE‘ES 
1308 002314 177572 MMSRO:: .WORD 177572 ;ADDRESS OF MEM MGT STATUS REGISTER #0. 
1309 002316 172516 MMSRS:: .WORD 172516 ;ADDRESS OF MEM MGT STATUS REGISTER @3. 
1310 002320 000000 MMPRES:: .WORD 0O sMEM MGT PRESENT FLAG (O IF MM NOT PRESENT). 
te 002322 000000 MMENAB:: .WORD 0 :MEM MGT ENABLED FLAG (0 IF MM NOT ENABLED). 
1313 002324 PARATB:: sBASE OF MEM MGT PAR ADDRESS TABLE. 
1314 002324 172340 PAROA:: .WORD 172340 ;ADDRESS OF M MGT PAR 40. 
1315 002326 172342 PARIA:: .WORD 172342 ;ADDRESS OF MEM MGT PAR 01 
1316 002 172344 PAR2A:: .WORD 172344 ;ADDRESS OF MEM MGT PAR #2 
1317 002332 172346 PARSA:: .WORD 172346 ;ADORESS OF MEM MGT PAR 03. 
1318 0023 172350 PARGA:: .WORD 172350 ;ADDRESS OF MEM MGT PAR 04 
1319 002336 172352 PARSA:: .WORD 172352 ;ADDRESS OF MEM MGT PAR @5. 
1320 002340 172354 p :: .WORD 172554 ;ADDRESS OF MEM MGT PAR 06. 
1321 002342 172356 PAR7TA:: .WORD 172556 ;ADDRESS OF MEM MGT PAR 07. 
tees 002344 PARATE:: sEND OF PAR ADDRESS TABLE. 
1324 002344 PDRATB: : sBASE OF MEM MGT PDR ADDRESS TABLE. 
1325 002344 172300 PDROA:: .WORD 1723500 ;ADDRESS OF MEM MGT POR 00. 
1326 002346 172302 PDRIA:: .WORD 172302 ;ADDRESS OF MEM MGT #1. 
1327 002350 72 PDR2A:: .WORD 172304 ;ADDRESS OF MEM MGT POR @2. 
1328 002352 72 PORSA:: .WORD 172506 ;ADDRESS OF MEM MGT PDR 43. 
1329 0023554 172310 POR4A:: .WORD 172310 ;ADDRESS OF MEM MGT 04, 
1330 002356 172312 PDRSA:: .WORD 1723512 ;ADDRESS OF MEM MGT PDR 65. 
1531 002360 172314 PDRGA:: .WORD 1723514 ;ADDRESS OF MEM MGT POR #6. 
1332 002362 172316 POR7A:: .WORD 172316 ;ADDRESS OF MEM MGT PDR 07. 
‘eer 002364 PDRATE: : sEND OF MEM MGT PDR ADDRESS TABLE. 
1335 i SPMORESERSSESESEEESADODESESEDESASEREDOAEEDEAEDEREEEDDEDEDDEDDDAAEADDDAEROREDLEOS 
1336 ; TABLE OF WORDS WITH CORRESPONDING BIT SET FOR GENERATION OF BIT MAPS. 
1337 gee en TRAE SEEDOEEEDEEDOSESEDEDEEEESESEAEAOEDDOADAEEEREDDEEDDOAEDDDRDDREDEEOODOS 
1338 002364 000001 BITTBL:: .WORD 1 :sBIT O SET. 
1339 002366 000002 -WORD 2 sBIT 1 SET. 
1340 002370 000004 -WORDB 4 sBIT 2 SET. 
1341 002372 000010 . WORD 10 sBIT 3 SET. 
1342 002374 000020 -WORD 20 sBIT 4 SET, 
1343 002376 000040 . WORD sBIT 5S SET, 
1344 00 000100 . WORD 100 sBIT 6 SET. 
1345 002402 000200 -WORD 200 sBTT 7 SET. 
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-WORD 400 ;BIT 8 SET. 
-WORD 1000 ;BIT 9 SET 

-WORD 2000 sBIT 10 SET 
-WORD 4000 sBIT 11 SET 
-WORD 10000 sBIT 12 SET 
-WORD 20000 sBIT 13 SET 
-WORD 40000 sBIT 14 SET 
-WORD 100000 sBIT 15 SET 


5 SOOSPOOAESSSESESESELESEDESEESEEEDEDAEASEEAOEADDEREOERDNDEDEDEDEDDDD REEDS EESES 
34 TABLE OF DUT BAUDRATES 


Soren ee aaa a th tetSS ESOS SEGSESESPSSOGASEOSEDOREEAEADEDAREEEEREREEEEEDEEEEDES 


BRTBLB: : sBASE OF DUT BAUD RATE TABLE 
NTRY FOR CODE 


-WORD 50. sBAUD RATE E QO. 
-WORD 75. sBAUD RATE ENTRY FOR CODE 1. 
-WORD 110. sBAUD RATE ENTRY FOR CODE 2 
-WORD 134. ;BAUD RATE ENTRY FOR 3 
-WORD 150. sBAUD RATE ENTRY FOR CODE 4 
-WORD 300. sBAUD RATE ENTRY FOR 5 
-WORD 600. sBAUD RATE ENTRY FOR CODE 6 
-WORD 1200. sBAUD RATE ENTRY FOR CODE 7 
-WORD 1800. sBAUD RATE ENTRY FOR 8 
-WORD 2000. sBAUD RATE ENTRY FOR CODE 9 
-WORD 2400. sBAUD RATE ENTRY FOR CODE 10 
-WORD 4800. sBAUD RATE ENTRY FOR CODE 11 
-WORD 7200. sBAUD RATE ENTRY FOR CODE 12 
-WORD 9600. sBAUD RATE ENTRY FOR CODE 13 
-WORD 19200. sBAUD RATE ENTRY FOR CODE 14. 
-WORD 38400. sBAUD RATE ENTRY FOR CODE 15. 
BRTBLE: : sLABEL AFTER END OF DUT BAUDRATE TABLE. 


b SOOREARSRESESSEESEEEEOEEEEEEREDEDESEDEREEDEEDEEEEREEEAEADEDARDDDARREEOEEAEDO‘E 
74 GPR SAVE AREAS ZERO AND ONE. 


bonne NA AAOPSSSOAESOSSOREEEEDEDEEEDEEEEEASODEADDAAEDEDADEAEDDRADDEEDEEEEEO‘E 


GPRSOB: : sBASE OF GPR SAVE AREA NUMBER ZERO. 
-WORD O sWORD 1, STORAGE FOR R1. 
-WORD O sWORD 2, STORAGE FOR Re. 
-WORD O sWORD 3, STORAGE FOR R3, 
-WORD O sWORD 4, STORAGE FOR R4 


: sWORD S, STORAGE FOR RS. 
sSORSOORESEEEEEDDSEASDESOEREDDADEDEREREDEDEREEDEEEDOAEDDDDDDDEDEADDDDEEERADEOO‘S 
as TRANSMISSION AND RECEPTION VARIABLES, POINTERS, AND FLAGS. 

5 MSSSOAEESEDEEEDEAEOAERDEDSSERERSOEOEEAEEEDDEEEREDDEDEREDREDEEEEDEDADESEEEEDEDOS 
CHRTOT:: .WORD 0 sTOTAL RECEIVED CHARACTER COUNTER. 
ERSMRF:: .WORD 0 ;"PRINT ERROR SUMMARY” FLAGS. 
TXDONF:: .WORD s TRANSMISSION DONE FLAGS. 
:: .WORD O sRECEPTION DONE FLAGS. 
TXDBLF:: .WORD 0 ;"TX HAS BEEN DISABLED” FLAG. 
i SPRESESSSESELAESEERSOSEESEEASEDESESORERERESEDEDEDEDEEERDDEDEDEDDDEDOREEREDODEOS 
; STORAGE AREA FOR THE BMP CODE QUEUE. 


§ SSAPSESEEOSESESEDASOSACAEREEDDORSDEOAEREREDDDEDEEREREDREDEDDEEADEDDDEEESEODDEOE 


QP:: -WORD 0 sPOINTER USED TO ACCESS THE NEXT CELL IN QUE. 
BMPCQB: : -BLKW 64, sSTORAGE FOR 32 CELLS, TESTO PLUS BMP CODE. 
BMPCQE: : sLAST ADDRESS PLUS 2 OF THE BMP CODE QUELE. 


iE SSSSEESOESESELESEADSEESOEEEAEDODOESODEOEOSOEADEDDEEEDDDDREDEEEODEADEDEEESEbOOECS 


:¢ RECEIVE BUFFER AND ASSOCIATED VARIABLES. 


ESSSEAPAEEEELESERESEDEEE EEA ERSAEOREDEEAOEEOREAOE DERE DDEAEDDDDEEEDEDODEODEEEEEOS 


RXBOPT:: .WORD sRX BUFFER OUTPUT POINTER, 


GLOBAL DATA 


1405 
1404 


002714 


TST PARTS 
SECTION 


000000 
000000 


000000 
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RXBF UL 
0 


34 


: .WORD O 
CBLNCA:: .WORD Oo 
CBDPAA:: .WORD 0 
CBDPLA:: .WORD 0 
CBDPNA:: .WORD 0O 
CBMAPA:: .WORD 0 
CBLPBA:: .WORD Oo 
CBOFSA:: .WORD 0 


34 


:: .BLKW 16. 
OPLENB:: .BLKW 16. 
EXCNTB:: .BLKW 16. 
ERCNTB:: .BLKW 16. 
TXPTRB:: .BLKW 16. 
RXPTRB:: .BLKW 16. 

T8:: .BLKW 16. 
TXCNTB:: .BLKW 16. 
RXCNTB:: .BLKW 16. 


sBIT MAP OF LINES TO INI 
OOPBACK MODE 
sAMOUNT OF OFFSET 

§ $O66666664664660664460660060000000000000000 
TRANSMISSION AND RECEPTION TABLES 

5 SPDBSSSASSSSSSSEDAEEES EESEEAEEDEEEAEEEDALERDDALRAREALLERD 
;TABLE OF END 
;TABLE OF 
Cees RECE 


3L 


iJ 


3RX BUFFER INPUT POINTER. 
sCOUNT OF NUMBER OF 
;LABEL AT BEGINNING 
sLESVE ENOUGH ROOM F 
sLABEL AFTER END OF Rx 
§ POSSESSES SEESO664666666060004660600004600000000000000048 


TX/RX CONTROL BLOCK. 


CAS IN LOPBCK). 


BETWEEN EACH TX START. 
SEARLES ASEAREREEERASALERERERERAEEDES 


OF POINTERS AND COUNTERS, 


CHARS IN RX BUFFER, 
OF THE RX BUFFER, 
OR A FULL BUFFER. 
BUFFER. 


CASS RERESEEEEEEO EOS 


ISSIONS OF THE DATA PATTERN. 
TIALISE. 


SESSESEMASEEDEEASEEDESAREAADADEREREDADADERDDRADEEDDEES 


38 
sFIRST HALF OF GENERAL TABLE OR BUFFER. 


AL 


j POOSOSROOEEESAEDEDAEEEASEDEEEENEDEEEREEERARALAS 

; GENERAL TABLE AND BUFFER AREA--513 WORDS. 

5 90666000000060000600006006 

BUF BAS: : ASE OF MEMORY BUFFER, 
ERLTBL:: -BLKW 128. 

SUFMID: : -BLKW 64, sSECOND HALF OF GENER 
BUF 3QT:: -BLKW 64, sLAST QUARTER OF THE BUF 
BUFEND: : sEND OF GENERAL 

ENDETB: : -BLKW 16. sBUFFER OVERFLOW SPACE. 


§ $4O4666466066664666466666066646666468 


; TABLE OF DATA PATTERN RESY 


SPHSHhSSSASHHLdSASHSoHA 


PATTERN RESYNC 


OWerneyvdbwhwreod 


Swe 


el oe ed 


TABLE OR BUFFER, 
FER AREA, 
PURPOSE MEMORY BUFFER, 


1514 
1515 005130 
1516 005131 


CcoeAL ORYA SBE TON“ 
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a sDATA PATTERN RESYNC QUEUE FOR LINE 15. 


sEND OF DATA PATTERN RESYNC QUEUES TABLE. 


5 OOOESERORSEEEEELODESEOSSESESESSOEESOEEDEDEDEOEEEEEEDEEEEREDEEEDELDED EEE OSEROOS 


CHARACTER MODE LPR FIELD TABLES. 


Bone eae SOSSOESEsSSESSSOtESSSSSOSEAOEESESEEORDEEEEEEEEEEEDELEREEDELEEOOOELS 


SCBCTB:: 
-WORD 0O 
. WORD 10 
-WORD 20 
.WORD 30 
SCBCTE:: 
SCBRTB:: 
-WORD 0O 
. WORD 73400 
. WORD 177400 
SCBRTE:: 
SCNSTB:: 
-WORD O 
. WORD 200 
SCNSTE:: 
SCTPTB:: 
-WORD 0O 
-WORD 40 
. WORD 140 
SCTPTE:: 


sBASE OF NUMBER OF BITS PER CHAR FIELDS TABLE . 
33> BITS/CHAR LPR FIELD. 
36 BITS/CHAR LPR FIELD. 
37 BITS/CHAR LPR FIELD. 
38 BITS/CHAR LPR FIELD. 
sEND OF NUMBER OF BITS/CHAR FIELDS TABLE. 
s;BASE OF BAUDRATE FIELDS TABLE. 
350 BAUD LPR FIELDS. 


LS 
TYPE OF PARITY FIELOS TABLE. 
3NO PARITY LPR FIELD. 

3000 PARITY LPR FIELD. 

sEVEN PARITY LPR FIELD. 

sEND OF TYPE OF PARITY FIELDS TABLE. 


5 SOPREESPESORERESESESEDEDEEESEEDEDEEDOEAREDEDEEDSEEEAEEDEEDRDDDEREARDEEEELEDELS 
: DMA MODE LPR FIELD TABLES. 
j SET UP WITH SPECIFIED BAUDRATES, 1 STOP BIT. ODD PARITY, 8 BITS/CHAR, 


sO AA SAOSSERSELESEEDERESOSSEOOAEEOODODEREAEDEAEDEAADAORDDEEEDDEERDEDALEEBE DEDEDE 


OLPRTB:: 
. WORD 156470 
- WORD 167070 
- WORD 177470 
DLPRTE:: 


assessseeges 


SPLPRE: : 


sBASE OF DMA TEST LPR FIELDS TABLE. 
:9.6K BAUD. 

319.2Kk BAUD. 

338.4K BAUD. 


TX: 38.4K, RX: SO BAUD, 1 STOP ODD PAR 8 BITS, 
sTX: SO, RX: 38,4K BAUD, 1 STOP ODD PAR 8 BITS, 


AUD , 
sNUMBER OF REPEAT TRANSMISSIONS AT 5O BAUD. 
sNUMBER OF REPEAT TRANSMISSIONS AT 38.4K BAUD, 
1200, RX: 75 BAUD, 1 STOP ODD PAR 8 BITS. 
TX: 75, RX: 1200 
NUMBER OF 


sTX: 2400, RX:2000 BAUD, 1 §$ 
sNUMBER OF REPEAT TRANSMISSIONS AT 2400 BAUD. 
sNUMBER OF REPEAT TRANSMISSIONS AT 2000 BAUD. 
sEND OF SPLIT SPEED LPR TABLE. 


i SPSSSERSEESEEEEESESAOEOSEDESSEEEDEEEDESDEEEAEEEDEDEDEEDDREDEDOOEEE® a +eee6e66 


; SINGLE CHARACTER DATA PATTERN 


TABLE, 


i SSSESOREESEELELEDEERESEDODEDEORERSSODERAEEDOEDODEDEDAEDAERDDRDEEDODEEDDEROSOEEbO 


SOPBAS::.BYTE 0 
wYTE 1 


sSTART OF SINGLE CHARACTER DATA PATTERN TABLE. 


SEQ 55 
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1517 005132 010 -BYTE 10 
1518 005133 017 -BYTE 17 
1519 005134 063 -BYTE 63 
1520 135 074 BYTE 74 
1521 005136 125 -BYTE 125 
2 005137 177 -BYTE 177 
152 140 200 -BYTE 200 
4 005141 252 -BYTE 252 
1525 005142 303 -BYTE 303 
1526 005143 314 BYTE 314 
1527 005144 -BYTE 360 
1528 005145 367 -BYTE 367 
529 005146 376 BYTE 376 
1530 005147 377 -BYTE 377 
1531 005150 SDPEND: : sEND OF SINGLE CHARACTER DATA PATTERN TABLE. 
1532 005150 000 -BYTE 0 ;START OF FIRST SHORT DATA PATTERN OVERFLOW AREA, 
1533 005151 001 -BYTE 1 
1534 005152 010 -BYTE 10 
vane 005153 017 BYTE 17 
1537 s OPRPRRSEREESELEREEEEEEEEDERESEEAEEEREDEEADDEEEREREREDDD DADE ERRDDDRDARESEALEES 
1536 5 SINGLE CHARACTER DATA PATTERN TABLE NUMBER TwO. 
1539 bane MR SSEESEEEEEEERESEEDADAEEEEADAREEERAEERADEEDEEADAD REED DDDRARREEESEREA‘S 
540 005154 125 SDP2B:: .BYTE 125 sSTART OF SECOND SHORT DATA PATTERN, 
1541 005155 252 -BYTE 252 
1542 156 124 -BYTE 124 
1543 005157 253 BYTE 253 
1544 005160 122 BYTE 122 
1545 005161 255 BYTE 255 
1546 005162 112 -BYTE 112 
1547 005163 265 -BYTE 265 
154 052 BYTE 52 
005165 325 BYTE 325 
1550 166 152 -BYTE 152 
1551 005167 225 BYTE 
1552 005170 132 -BYTE 1 
1553 005171 245 -BYTE 245 
554 005172 126 -BYTE 126 
1555 005173 251 BYTE 251 
1556 005174 SOP2E: : sEND OF SECOND SHORT DATA PATTERN. 
1557 005174 125 -BYTE 125 sSTART OF SECOND SHORT DATA PATTERN OVERFLOW AREA, 
1558 005175 252 BYTE 252 
1559 005176 124 -BYTE 124 
005177 253 -BYTE 253 
1561 005200 122 -BYTE 122 
1562 005201 255 -BYTE 255 
1563 2 1l2 BYTE lle 
1564 005203 265 -BYTE 265 
1565 052 -BYTE 52 
1 005205 325 -BYTE 5325 
1567 152 BYTE 152 
1568 005207 225 -BYTE 225 
1569 005210 132 BYTE 132 
1570 005211 245 -BYTE 245 
1571 005212 1 -BYTE 126 
1572 005213 251 BYTE 251 


a 
157 SESPEDEREREEEEEREEBEESAEDEDDS RODDEOEAEEEEOODODEODEDEDDDEDDDDDRED EDO EODESEbEOES 
3 
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1574 3 SINGLE CHARACTER SAFE PROPORTIONAL DELAY TABLE. 
1575 BOT en CA OS SPS SEEOssssOSSEhSOOSOESEOhSAAESOREEEEEDEEDEEEREDEEREEEEEEECOEE 
1576 005214 372 PROTBL:: .BYTE 250. sDELAY IN MILLI SECONDS AT SO BAUD 
1577 005215 252 -BYTE 170. sDELAY IN MILLI SECONDS AT 75 BAUD 
1578 005216 167 -BYTE 119. sDELAY IN MILLI SECONDS AT 110 BAUD 
1579 005217 143 .BYTE 99. sDELAY IN MILLI SECONDS AT 134.5 BAUD 
1580 005220 132 -BYTE . sDELAY IN MILLI SECONDS AT 150 BAUD 
1581 005221 062 -BYTE ‘ sDELAY IN MILLI SECONDS AT 300 BAUD 
15862 005222 036 -BYTE 30. ;DELAY IN MILLI SECONDS AT 600 BAUD 
1563 005223 024 -BYTE 20. ;DELAY IN MILLI SECONDS AT 1200 BAUD 
1584 005224 021 -BYTE até sDELAY IN MILLI SECONDS AT 1800 BAUD 
15865 005225 020 -BYTE 16. ;DELAY IN MILLI SECONDS AT 2000 BAUD 
1586 005226 017 -BYTE iS. sDELAY IN MILLI SECONDS AT 2400 BAUD 
1587 005227 015 -BYTE 13. sDELAY IN MILLI SECONDS AT 4800 BAUD 
1588 005230 014 -BYTE le. sDELAY IN MILLI SECONDS AT 7200 BAUD 
1589 005231 014 -.BYTE 12. sDELAY IN MILLI SECONDS AT 9600 BAUD 
1590 005232 013 .BYTE 4 sDELAY IN MILLI SECONDS AT 19200 BAUD 
EH 005233 012 yb 10. sDELAY IN MILLI SECONDS AT 38400 BAUD 
1593 Oe en A tREESEESEELEGEADESEEESEDEAESDEREEEEADEDDEAEEADARDDEAARRRREDEDELEEDEELLE 
1594 3# TABLE FOR STORAGE OF RX/TX LINE NUMBER ASSOCIATIONS. 
1595 3# THE ASSOCIATIONS ARE STORED AS LINE NUMBER TIMES 2 FOR USE AS OFFSETS 
1596 3% WHEN ACCESSING A TABLE OF WORDS. 
1597 34 NOTE: DO NOT WRITE A NON-ZERO VALUE INTO THE UPPER BYTE OF ANY ENTRY, 
1598 5 oon a ROSES EAESEOEESSEEESEEEDEDORADAAEADEOAEADAAADEDAADEEERADDDRDDDREAROEO‘E 
1599 005234 TXRXLB: : ;BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1600 005234 000000 - WORD 0 3 TX/RX LINE OFFSET FOR RX/TX LINE 0, 
1601 005236 000002 -WORD 2. 3 TX/RX LINE OFFSET FOR RX/TX LINE 1. 
1602 005240 000004 . WORD 4. 3TX/RX LINE OFFSET FOR RX/TX LINE 2. 
1603 005242 000006 . WORD 6. 3 TX/RX LINE OFFSET FOR RX/TX LINE 3, 

005244 000010 . WORD 8. 3; TX/RX LINE OFFSET FOR RX/TX LINE 4, 
1605 005246 000012 - WORD 10. 3 TX/RX LINE OFFSET FOR RX/Tx LINE 5, 

005250 000014 - WORD le. ;TX/RX LINE OFFSET FOR RX/TX LINE 6, 
1607 005252 000016 . WORD 14. 3 TX/RX LINE OFFSET FOR RX/TX LINE 7, 
1608 005254 000020 . WORD 16. sTX/RX LINE OFFSET FOR RX/TX LINE 8, 
1609 005256 000022 - WORD 18. 3 TX/RX LINE OFFSET FOR RX/TX LINE 9. 
1610 005260 000024 . WORD 20. ;TX/RX LINE OFFSET FOR RX/Tx LINE 10, 
1611 005262 000026 . WORD 22. ;TX/RX LINE OFFSET FOR RX/TX LINE 11. 

5264 000030 . WORD 24. ;TX/RX LINE OFFSET FOR RX/TX LINE 12. 

16135 005266 000032 . WORD 26. sTX/RX LINE OFFSET FOR RX/TX LINE 13, 
1614 005270 34 - WORD 28. 3TX/RX LINE OFFSET FOR Rx/TX LINE 14, 
1615 005272 000036 - WORD 30. 3 TX/RX LINE OFFSET FOR RX/TX LINE 15, 
1616 005274 TXRXLE:: sEND OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
1617 -EVEN sGUARANTEE THAT NEXT TABLE IS ON WORD BOUNDARY 
1618 § SARESERSSESESEAEDELDESESEREOEADESSEDSESEEOEEDADAEDDDDADEDDDADEEDDEEDADDDSSEEES 
1619 3@ TABLE OF TX/RX LINE NUMBER ASSOCIATIONS IN STAGGERED LOOPBACK. 
1620 3@ THE ASSOCIATIONS ARE STORED AS LINE NUMBER TIMES 2 FOR USE AS OFFSETS 
1621 3% WHEN ACCESSING A TABLE OF WORDS. 
1622 3# THIS IS A TABLE OF DATA FOR READING ONLY. USE TO LOAD THE ABOVE TABLE. 
16235 34 NOTE: MUST CONVERT FROM BYTES TO WORDS WHEN LOADING ABOVE TABLE. 
1624 5 SASSAEESSESESESEDRSEEREDEREDESADEEDSEAESEORESEDEDEDEDEREDDDDRERERDDDODDESEEELE 
1625 005274 STGTRB:: sBASE OF STAGGERED TX/Rx LINE NUMBER TABLE. 
1626 005274 004 -BYTE 4. 3 TX/RX LINE OFFSET FOR RX/TX LINE 0, 
1627 005275 006 -BYTE 6. sTX/RX LINE OFFSET FOR RXK/TX LINE 1, 
1628 005276 000 BYTE 0 ;TX/RX LINE OFFSET FOR RX/TX LINE é. 
1 005277 002 -BYTE 2. 3TX/RX LINE OFFSET FOR RXK/Tx LINE 3, 
1630 005300 014 BYTE 12. ;TX/RX LINE OFFSET FOR RX/TX LINE 4, 


riS 
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1631 005301 016 -BYTE 14. ;TX/RX LINE OFFSET FOR RX/TX LINE 
1632 005302 010 -BYTE 8. 3 TX/RX LINE OFFSET FOR RX/TX LINE 
1633 005303 012 -BYTE 10. ;TX/RX LINE OFFSET FOR Rx/TX LINE 
1634 -BYTE 20. ;TX/RX LINE OFFSET FOR RX/TX LINE 
1635 005305 026 -BYTE 22. 3 TX/RX LINE OFFSET FOR RX/TX LINE 
1636 005306 020 -BYTE 16. ;TX/RX LINE OFFSET FOR RX/TX LINE 
1637 005307 022 -BYTE 18. :TX/RX LINE OFFSET FOR RX/TX LINE 
1636 005310 034 -BYTE 28. ;TX/RX LINE OFFSET FOR RX/TX LINE 1 
1639 005311 036 -BYTE 30. 3 TX/RX LINE OFFSET FOR Rx/TX LINE 
1640 005312 030 -BYTE 24. ;TX/RX LINE OFFSET FOR RX/TX LINE 
1641 005313 032 -BYTE 26. ;TX/RX LINE OFFSET FOR Rx/TxX a . 
1642 -EVEN ;GUARANTEE THAT NEXT TABLE IS ON WORD BOUNDARY. 
1655 005314 ERRTBL 


LSERRTBL: : 


ui 
ip 


a583 


N 
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1659 -SBTTL GPR HANDLING ROUTINES FOR SUBROU 
1660 é oneesnegonsesennnnsenesennse¢sesenentanar an , 
cf 
ies 2 Gia antes oun suenduring eats at aa Uae come MLA 
cs 6 ROUTINES/MACRO CALLS HAVE THE FOLLOWING NAMES; a 
1665 34 SAVE - MACRO DEFINITION USED AT UBROU 
THE BEGINNING OF A S 
rr :* PASS — MaAVE THE GPR CONTENTS FOR LATER RESTORATION. Ts 
1667 : ~ MACRO DEFINITION USED AT THE END OF A SUBROUTINE TO RESTORE 
ise * are PECTF LED SRS TANT Teoh BEL ORERNE. ME CONTENTS 
rt :¢ PREGOS - SUBROUTINE WHICH IS CALLED FROM THE SAVE AND PASS MACRO 
1672 TONS WHICH ACTUALLY PERFORMS THE ACTIONS ON THE GPRS. 
1673 54 DURING A SUBROUTINE WHI 
75 CH USES THESE GPR SAVE ROUTINES THE Vv 
rts : OF THE GPRS ARE STORED ON THE STACK IN THE FOLLOWING STACK FRAME. 
1676 34 SP > RET PC INTO 
- PREGOS ROUTINE. 

1676 * SP+2 -> GPR RO CONTENTS. sai 
1679 ; SP+4 -> GPR Ri CONTENTS 

‘+ SP+6 -> GPR R2 CONTENTS 
1681 an SP+8 -> GPR R3 CONTENTS 
1662 a SP+10 -> GPR R4 CONTENTS 
1683 om SP+12 -> GPR R5 CONTENTS. 
1664 cm SP+14 -> RET PC INTO CALLER OF SUB‘ TNE WHICH CALLED PREGOS. 
1685 * EACH LEVEL ; 
16 ; OF SUB’ TNE CALLING USES 8 WORDS OF STACK OVERHEAD. 
1687 2 Torshie io westone saeco vat s0=0© USED, IN, -STRALOHT CINE Cone: 
1689 :? TSSUING OF A PASS CALL THE GPRS WILL BE RESTORED TO THE VALUES 
1690 6 HEY (HAD PRIOR TO THE LAST SAVE CALL (EXCEPT FOR THE EXCEPTED, 
1691 +6 ON Mee ep INTACT. GPRS SPECIFIED AS PARAMETERS TO THE PASS CALL) 
1692 ‘6 SAVE tm MILL ALSO BE RESTORED TO ITS CONDITION BEFORE THE LAST 
i635 i GAlGethei, rite pRAGORAIMER OUSIDE SURE, THAT THE SP HRS THE sh 
ree , HE SAVE MACRO WAS CALLED. — 
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CESS EQUATES 
sos? -SBTTL GPR FRAME ACCESS EQUATES 
ieee 
1699 sEQUATES THAT ALLOW ACCESS TO THE STACK FRAME. THESE ARE THE 
1700 sOFFSETS INTO "HE STACK FOR REGISTERS SAVED DURING THE PREGOS 
1701 sROUT INE. 
1702 $--- 
1703 
1704 000036 LPCSLT<-=< 36 sOF FSET FOR LAST RETURN PC. 
1705 000016 PCSLOT<= 16 :OF FSET FOR RETURN PC. 
1706 000014 RSSLOT <= 14 ;OF FSET FOR RS. 
1707 000012 R4SLOT<«- 12 :OF FSET FOR Ra. 
1706 000010 RSSLOT<--= 10 ;OFFSET FOR R3. 
1709 000006 R2SLOT «=< 6 sOF FSET FOR Ro. 
1710 000004 RISLOT=- 4 ;OF FSET FOR R1. 


i711 000002 ROSLOT<-= 2 ;OF FSET FOR RO. 
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ur SER San wee areata one 
a7 ¢, 2 THIS MACRO TS USED AT THE Berri t et thee eeesacesacsacescesesssccccescess 
THE BEG SUBROU 
tS - CONTENTS OF THE GPRS RO THRU ee vials — 
1718 ;¢ INPUTS: 
1719 ; :; SP - UNCHANGED SINCE SUBROUTINE WAS ENTERED 
o 780 s RSSLOT - OFFSET TO STACK SLOT FOR RS (EQUATED TO 14 ocraL) 
1724 3 OUTPUTS: GPR SAVE AREA 
? ON THE STACK IS LOADED WITH THE CONT 
1722 is TOP OF STACK - LOADED WITH THE RETURN ADDRESS ImTOomeGcs Ot 
ee - CALLING SEQUENCE: SAVE 
‘ 
1726 s¢ COMMENTS: NO ARGUMENTS ARE ALLOWED. 
1727 ‘6 THE PASS MACRO SHOULD BE CALLED TO RESTORE THE GPR VALUES. 
1729 :¢ SUBORDINATE ROUTINES CALLED: PREGOS. 
173) bOOROOOREESOSSEDEEESOSEEDOOOEES SOOAOEEDEEEEAALEDOEREEEEEEEEEEDEDEOEOEESSECEDES 
1°52 .MACRO SAVE 
ue me 
1735 MIST JSR RS,PREGOS sCALL REGISTER SAVE SUBRT. 
1736 -ENDM = SAVE 


f 
a 


acho BEF 


PARTS 
INITION 
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-SBTTL GLOBAL MACRO DEFINITION 


3° THIS MACRO IS USED IN CONJUNCTION WITH THE SAVE MACRO. IT IS 

3¢ CALLED AT END OF A SUBROUTINE TO PASS PARAMETERS IN GPRS BACK TO THE 
:¢ CALLING ROUTINE BY ALTERING THE GPR SAVE AREA ON THE STACK AND THEN 

36 RETURNING TO PREGOS TO RESTORE THE GPRS TO THEIR SAVED VALUES. 

;* 

3* INPUTS: ONLY ALLOWED ARGUMENTS ARE “RO” THRU "RS". 

3¢ ROSLOT THRU RSSLOT MUST BE EQUATED TO THEIR RESPECTIVE GPR Save 
3¢ SLOT OFFSETS BEFORE CALLING THIS MACRO. 

3¢ 

3@ OUTPUTS: THE GPR VALUES ARE PUT IN THEIR RESPECTIVE SLOTS ON THE STACK. 
3¢ 

s* C&LLING SEQUENCE: PASS RO.R1.... 

3% 

;* COMMENTS: ANY COMBINATION OF GPR ARGUMENTS MAY BE LISTED IN ANY ORDER, 
36 FOR EXAMPLE, THE FOLLOWING ARE LEGAL ;: 

3% PASS Ri 

3 PASS R4,RO,RO 

34 THE GPRS LISTED AS ARGUMENTS WILL BE PASSED INTACT TO THE 

3¢ CALLING ROUTINE, ALL OTHER GPRS WILL BE RESTORED. 

36 THE SP MUST BE AT ITS ORIGINAL VALUE WHEN PASS IS CALLED, 

,* 

;* THE MACRO CALL 

3° PASS RO,R3 

3¢ EXPANDS INTO THE FOLLOWING ASSEMBLY CODE ; 

3¢ MOV RO,ROSLOT( SP) sPUT RO IN STACK SLOT, 
34 MOV R3,R3SLOT( SP) sPUT R3 IN STACK SLOT. 
;* JSR PC .@(SP)- sRETURN TO PREGOS SUBRT. 
Le IN THIS EXAMPLE GPRS R1, R2, R4, AND RS WILL BE RESTORED TO 
:* THEIR VALUES CONTAINED IN THE STACK FRAME AND RO AND RS 

36 WILL BE LEFT AT THEIR VALUES PRIOR TO THIS PASS CALL. 

34 


s* SUBORDINATE ROUTINES CALLED: (PRE 


§ O2896066666060460404646600660066606606066 


- MACRO 
. IRP 
IF 


»NLIST 
- ENDM 


PASS A,8.C,.0,E,F 
X,<A,B.C,0.€ oF > 
NB, 

MOV X,X%' SLOT( SP) 
PASS 


GRT - LABEL WITHIN PREGOS, VALUE ON STACK.) 


PPESOEESEEEESHEEHEEEEEHEODEEEERDREEEEEEEEEES 


sPUT X IN STACK SLOT, 


sRETURN TO PREGOS SUBRT, 


DMU-11 FUNC TST PARIS 
BROVUT INT 


C4 
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- PREGOS - 


000014 


-SBTTL GLOBAL SUBROUTINE - PREGOS - 


5 OOOO OOOO OOS EEEEEOODEDESESEESESSOOEEEEEEESEEEEEEEEEEEDEEDEEEEEDEEEEEESEOOEOSS 


36 PRESERVE REGISTERS RO THROUGH RS FOR SUBROUTINE CALLS. 


3@ INPUTS: THE RETURN ADDRESS BACK INTO THE CALLING ROUTINE MUST BE IN 
3¢ GPR RS. (CI.E.- MACROS USE “JSR RS ,PREGOS”. ) 

;¢ 

3¢ OUTPUTS: REGISTERS RO THROUGH RS ARE SAVED ON THE STACK, 

3;* 

s*CALLING SEQUENCE: SAVE MACRO EXPANSION CALLS PREGOS. 

34 { SUBROUT INE CODE}... 

34 PASS sMACRO EXPANSION RECALLS PREGOS. 

3¢ 

3; *COMMENTS: THIS ROUTINE IS RE-ENTRANT. 

3% 

34 PARAMETERS MAY BE PASSED OUT OF A SUBROUTINE BY MODIFYING THE 
3 REGISTER SAVE AREA ON THE STACK. USE THE PASS GPRN MACRO 

3@ TO RETURN GPR VALUES INTACT. 

3 USE THE RNSLOT OFFSETS FROM THE SP TO PASS OTHER PARAMETERS. 
34 [EXAMPLE : MOV VALUE ,ROSLOT( SP) 

56 MAKE SURE THE SP IS AT ITS ORIGINAL VALUE WHEN YOU DO THIS. 


‘ 
;*SUBORDINATE ROUTINES CALLED: NONE. 


5 OMORSRARDODSOEEEESEESERESSESEEEEEAAEREEEREREAEEEDEORADO RED REDEREEEREEEEEESEOEES 


PREGOS: sRS HAS BEEN LOADED ON THE STACK BY THE SUBROUTINE CALL 
MOV R4,-(SP) sSAVE R4 
MOV R3,-(SP) sSAVE R3 
MOV R2,-(SP) sSAVE Re 
MOV R1,-(SP) sSAVE R1 
sSAVE RO 


RS. -CSP) sPUSH RETURN PC ON TOP OF STACK 
MOV RSSLOT( SP), RS sRESTORE RS TO VALUE IT HAD BEFORE CALLS 


JSR PC, @(SP)-+ sCALL THE SUBROUTINE AT THE RETURN ADDRESS 
sFROM THE PREGOS CALL, PUTTING THE PRESENT 
sPC ON THE STACK AS A RETURN ADDRESS INTO 
sTHIS (PREGOS) ROUTINE. 


geoe 
sTHE FOLLOWING CODE IS EXECUTED WHEN THE CALLING ROUTINE DOES A 
s"RETURN” [JSR PC,@(SP)+] USING THE PC DEPOSITED ON THE STACK ABOVE, 


PREGRT:: MOV (SP )+,RS sPUT RETURN PC IN R5, 
MOV CSP )+,RO sRESTORE RO. 
MOV (SP)+,R1 sRESTORE R1, 
MOV (SP )+,R2 sRESTORE Re. 
MOV (SP)+,R3 sRESTORE RS, 
MOV (SP)+,R4 sRESTORE R4, 
RTS RS sRETURN TO THE SUBROUTINE WHICH CALLED PREGOS, 


sRESTORING R5 IN THE PROCESS, 


ocdeAd 


T4/ 


WEN Seb 86" 
t 
005364 

005364 

005 364 104 
005367 055 
005372 000 
005374 

005374 

005374 104 
005377 055 
005402 040 
005405 116 
005410 124 
005413 040 
005416 122 
005421 000 
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110 
061 


125 
061 


-SBTTL GLOBAL TEXT SECTION 


3° 


; THE GLOBAL TEXT SE 
; MESSAGES, AND ae 
THAN ONE T 


EST. 


CTION CONTAINS FORMAT STATEMENTS, 
I INFORMATION THAT ARE USED IN 


é 
s NAMES OF DEVICES SUPPORTED BY PROGRAM 


DEVTyYP 


<DHU-11> 


; TEST DESCRIPTION 
‘ 


DESCRIPT 


EVEN 


<DHU-11 FUNC TST PART4> 


LSOVTYP:; 


LSDESC:;: 


ASCI2Z 


.EVEN 


-ASCIZ 


-EVEN 


“FQ 44 


7OMU-11/ 


7OMU-11 FUNC TST PAR 


6 007626 
1927 007722 
1928 
1929 


DHU-11 FUNC TST PARI4 
GLOBAL TEXT SECTION 


-NLIST BIN 


E 
EF 9003 
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$ #066¢6666 FORMAT STATEMENTS USED IN PRINT CALLS s#eeceeser 


/SAMODEM LOOPBACK TEST STATUS REPORT: / 

/PATTERN @8D5SA (D) COMPLETED. =N/ 

SBT8N/ 

/$A TSA, TEST ABORTED #N/ 

SHA ACTUAL DATA: s068A (0).sN/ 

/@NSA DMA las ae, TEST SUCCESSFUL, BITS 0 TO #D2sA (D0) TESTED 


/ (8D28A BITS).sN 
NBA FRAMING /PARITY ERROR DETECTION AND REPORTING BAD ON LINES: sD2sA 


/$A CHAR RECEIVED WITH FRAMING ERROR BIT STSA, SHOULD BE STSN/ 
/$A CHAR RECEIVED WITH any Uy ERROR BIT sTsA, —o BE sTSN/ 
‘A UNEXPECTED STA FOUND IN RECEIVE CHAR FIFO:sN 
/8A CODE IS ASSOCIATED WITH LINE: #D2sN/ 

HP CODE IS: s03sN/ 

SGA STSA VALUE: S038N/ 

COP STA VALUE: NONESN/ 

/GA STSA SD28ACD )N/ 

/SA CHARACTER RECEIVED WITH ERROR FLAG(S) SET ON LINE #028N/ 

/6A CHARACTER READ AS: #036N/ 

/8A STSA ERROR FLAG SET.SN/ 

/6A NUMBER OF ERRORS DETECTED ON LINE SD28A IS SD56N/ 

7A LINESD2SA ONLY STSDSSA BYTES OF SDSSA BYTE/ 


/ DATA PAT‘'N TX’'D FROM LINESD2sN/ 
/$A DATA PATTERN NOT COMPLETELY sTsN/ 
STSA SO6RN/ 


/mA 
_, TOO FEW TX.ACTIONS GENERATED ON LINE sD26N/ 
2uN/ 
CODE REPORTED :#03s8A(0 )sN/ 
Ow OCCURRED ( (MORE THAN 31 BMP CODES FOUND IN QUEUE )sN/ 
/tNwA TESTING UNIT :8D48N/ 


@8D2sA: OSR=sB1isA, ‘RI =sB18A, OCD-8B1s8A, CTS=sB18N/ 
7aDS#A TS NOT A SUPPORTED BAUDRATE , ENTER ANOTHER OR CTRL C.sN/ 


-LIST BIN 


: SD2SN\ 


Grek! FAM $2L, 968" 


-MLIST BIN 


-ASCIZ 
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3##2660064 GLOBAL ERROR MESSAGES seceeeceseeee 


TE IN BPS:/ 


/IYSDEM BAUDRAT 
SCIZ /DEVICE REGISTER ACCESS ERRORS/ 


-ASCIT 


IZ /SET/ 


/TIMEOUT OCCURRED WAITING FOR MASTER RESET TO CLEAR/ 
SOMA ADDRESS TEST FAILED 
‘ND SUITABLE ADDR FOUND, TEST ABANDONED/ 

/*sHOST FAILUREs*s; WRITE FAILED TO AN ADDR WHICH HAD BEEN READ/ 
/NO ACTIVE og tl TEST ABANDONED/ 


— _START BIT FOUND SET BEFORE OMA INITIATED, TEST ABANDONED/ 
/TIME-OUT OCC WAITING FOR DMA TO FINISH/ 
/TOO FEW CHARACTERS FOUND IN THE RXFIFO,OMA FAILED, 


/T00 MANY BMP CODES FOUND IN RXFIFO/ 
/BAD BITS BETWEEN BITS O AND / 

/RXFIFO FAILED TO PURGE/ 

/#eHOST FAILUREseWwRITE ATTEMPT FAILED/ 
/FRAMING ERROR TEST FAILED/ 

/CLEAR / 

/PARITY “ERROR TEST “gp saad 

/MODEM LOOPBACK TEST / 

/MODEM STATUS CODE/ 


/SELFTEST CODE/ 

/CHARACTER RECEIVED ON INACTIVE LINE, LINE:/ 
/UNEXPECTED CHAR RECEIVED AFTER RX COMPLETE ON LINE/ 
/RECEIVED CHAR MISCOMPARE AGAINST TX DATA ON LINE/ 
/EXPECTED OR CORRECT/ 


Pond net a MEASURED y 


7FRAMING/ 

/PARITY/ 

/SUMMARY REPORTS FOR LINES 

/TRANSMITTED/ 

/RECV’'D/ 

/ FIFO WILL NOT PURGE (DATA.VALID STUCK SET),/ 

/ REMAINDER OF TEST SKIPPED. / 

— THAN TWICE ag “EXPECTED NUMBER OF CHARACTERS RECEIVED. / 
LPR CONTEN 

7EXTRA CHAR 


WITH EXCESSIVE NUMBERS OF ERRORS: / 


M LINE: 


ODES WERE REPORTED DURING THIS DIAGNOSTIC/ 
CODE FOUND IN TEST / 


/THE LAST BMP CODE WAS FOUND IN TEST / 


XPECTED BMP CODES FOUND DURING THIS PASS/ 
ECHO (DHU REMOTE LOOPBACK) TEST / 
MODEM LINK ESTABLISHED: / 
7EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA) 
/NUMBER OF 256 BYTE PATTERNS TO SEND CN EACH SELECTED L INE / 


JUNE 


FxT 
1995 015315 
1996 013352 PMSMSG 
199° 013437 TERMSG 
1996 
1999 
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-ASCIZ <15><12>/ (1-255, O=SEND UNTIL tC) 
: -ASCIZ /PRINT MODEM STATUS SIGNAL REPORT 
: .ASCIZ /TYPE <CR> TO TERMINATE THE TEST: / 


; .LIST BIN 


3:7 
AFTER EACH PATTERN: 7 
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-SBTTL GLOBAL ERROR REPORT SECTION 


z¢¢ 


; THE GLOBAL ERROR REPORT SECTION CON 
; USED BY MORE THAN ONE TEST TO OUTPU 
; (BASIC) AND PRINTX (EXTENDED) CALLS 
alias 


TAINS MESSAGE PRINTING AREAS 
T ADDITIONAL ERROR INFORMATION. 
ARE USED TO CALL PRINT SERVICES. 


PRIN'TB 


f . 
| ? 
4 


GLOBAL ERROR REPORT IN 


0 
2042 


01 
2057 


ORTING ROUTINE 


032705 
001410 


012746 
012746 
010600 


1 
104414 
062706 
032705 
001410 
012746 


013753 
000001 


000004 


i \ + 
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SEO 4% 


34 INFORMATION IF AN ERROR IS DETECTED IN TEST 1 CREGISTER ADDRESS 

3* ACCESS TEST). IF THE “EXTENDED ERROR INFO” TION HAS BEEN SELECTED 

34 THEN THIS SUBROUTINE WILL REPORT THE TYPE OF ACCESS (READ OR WRITE OR 
34 BOTH) WHICH CAUSED A BUS TIME-OUT TRAP (004 TRAP).A MESSAGE INDICATING 
36 THAT THE DHU MAY BE AT THE WRONG UNIBUS ADDRESS IS ALSO PRINTED. 

34 

;* INPUTS: RS - ERROR FLAG WORD. 

34 IF BIT O IS SET, A READ ERROR OCCURED. 


34 If BIT 1 IS SET, A WRITE ERROR OCCURED. 
34 

;# OUTPUTS: MESSAGES ARE PRINTED AT THE OPERATOR CONSOLE. 

oe 


‘ 
3* CALLING SEQUENCE: 
34 PARAMETER IN THE DRS ERROR REPORT MACRO CALL. 


Lf 

;* COMMENTS: 

34 

;* SUBORDINATE ROUTINES USED: NONE. 


INCLUDE THE LABEL "ERO101” AS THE MESSAGE POINTER 


i APRORAEDEEEEEEEEEEEEEEEESEEERADAESEEAEEEREODORDEEEADOEREDEERDEEAREREEARDEECO‘S 


BGNMSG 
SAVE 


ERO101 
ERO1O1L:: 
sSAVE THE GPR CONTENTS 
JSR RS .PREGOS 


MOV SBITO6,RO 
BIC OPTION,RO ;TRY AND CLEAR THE FLAG. 
BNE 6$ sEXIT IF OPTION NOT SELECTED. 


3° 
; REPORT EXTENDED ERROR INFOMATION 
; 


BIT lat sTEST FOR READ ERROR. 


BEQ sSKIP READ ERROR MSG IF NO READ ERROR. 
PRINTB #MSG1 sPRINT READ ERROR MESSAGE. "= 
V 
MOV 
MOV 
TRAP 
ADD 
2s: BIT #BIT1,R5 sTEST FOR WRITE ERROR, 
43 sSKIP WRITE ERROR MSG IF NO WRITE ERROR, 


BEQ | 
PRINTB #MSG2 sPRINT WRITE ERROR MESSAGE. 


;CALL REGISTER SAVE SUBRT. 
sSET-UP THE BIT MAP FOR ‘REPORT EXT'D ERROR INFO’ 


04,SP 


MOV OMSG2, -( SP) 
MOV P,RO 
TRAP CSPNTB 
ADD 04 ,SP 
4$; PRINTX #&MSG3 SUGGEST THAT DHU MAY BE AT WRONG ADORESS. 

MOV OMmsG5, -( SP) 
MOV O1,-CSP) 
MOV SP ,RO 
TRAP CSPNTX 

ADD 04 ,5P 
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or be Ad ERROR PORT ING ROUT INE - EROIO1 - fa 44 


2058 013612 6$: PASS sRESTORE THE GPR CONTENTS. 
013612 004736 JSR PC ac SP) 


+4 CSP )s ;RETURN TO PREGOS SUBRT. 
2059 013614 ENDMSG ve 

013614 L1000e2: 
P 013614 104423 TRAP C$MSG 
2061 013616 045 101 102 MSG1:: .ASCIZ /#ABUS TIME-OUT TRAP CAUSED BY READ ATTEMPT.«Nn/ 

013621 125 123 040 

1 4 124 111 115 
013627 105 05 117 


013640 120 103 
013643 101 125 123 
0 105 104 040 
013651 102 131 040 
122 105 101 
013657 104 040 101 
013662 124 124 105 
013665 115 120 124 
013670 056 116 
013673 000 
2062 013674 045 101 102 MSG2:: .ASCIZ /s#ABUS TIME-OUT TRAP CAUSED BY WRITE ATTEMPT .«N/ 
013677 125 123 040 
013702 124 111 115 
013705 105 055 117 
013710 125 124 040 
013713 124 122 101 
013716 120 040 103 
013721 101 125 123 
013724 105 104 040 
013727 102 131 040 
013732 127 122 111 
013735 124 105 
013740 101 124 124 


2063 013753 045 101 104 MSG3:: .ASCIZ /#ADHU MAY BE AT THE WRONG UNIBUS ADDRESS. sNsN/ 
013756 110 125 040 
013761 115 101 131 
013764 040 102 1 
013767 040 101 124 
013772 040 124 110 
013775 105 040 127 

4000 122 117 116 
014003 107 040 125 
014 116 111 102 
014011 125 123 040 
014014 101 104 104 
014017 122 105 123 
014022 123 056 
014025 116 045 116 
014030 000 

2064 


2065 EVEN 


Li 
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2067 -SBTTL GLOBAL ERROR REPORTING ROUTINE - EROSOS - 
2068 s COADLERSOOASOSEESEAEEEESEASERESESESEEESSEEEEEEREREDEDEDEEEDEDALEREDEESEOEOEESS . 
2069 ;* THIS IS AN ERROR REPORTING SUBROUTINE WHICH PRINTS AN ADDITIONAL ERROR 
2070 34 MESSAGE WHOSE ADDRESS IS PASSED AS AN INPUT PARAMETER, PROVIDED 
ae 34 EXTENDED ERROR REPORTING HAS BEEN REQUESTED. 
2 * 
po hh 4 INPUTS: R1 - ADDRESS OF THE MESSAGE TO PRINT. 
3¢ 
po 3# OUTPUTS: A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE. 
;* 
2077 3# CALLING SEQUENCE: LOAD THE ADDRESS OF THE MESSAGE IN R1. 
2078 3# INCLUDE THE LABEL “EROSO3” AS THE MESSAGE POINTER 
hae 34 PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
1 
ons ;* COMMENTS: THE MESSAGE IS PRINTED AS BASIC ERROR INFORMATION, 
3* 
2083 3;# SUBORDINATE ROUTINES USED: NONE. 
2084 s CPRLEREEESERERESEEEEESESSESEEEEREDESEREESEEARADEDEEDEDEERAEEDDDARODEEESEERLE‘‘S 
2085 
2086 014032 BGNMSG EROSO3 
2087 014032 EROSOS: : 
2088 014032 012700 100100 MOV #BITO6,RO :TRY TO CLEAR THE 
2089 014036 046700 166120 BIC OPTION,RO sEXT’'O ERROR REPORTING FLAG 
soar 014042 001011 BNE 2$ sEXIT IF FLAG NOT SET. 
2092 
2093 014044 PRINTB #EFO503,R1 sPRINT THE MESSAGE. 
014044 010146 MOV R1,-CSP) 
4046 012746 005530 MOV GEFOSOS, -( SP) 
014052 012746 000002 MOV @2,-(SP) 
014056 010600 MOV P,RO 
014060 104414 TRAP CSPNTB 
2004 014062 062706 000006 ADD 06, SP 
2095 014066 23: ENDMSG 
14066 L10003; 
014066 104423 TRAP CSMSG 


N 
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014070 
014070 
014070 
014070 


014074 


014124 
014130 


014160 


012746 


016702 
010246 


-SBTTL GLOBAL ERROR RE 


34 THIS ERROR TING ROUTINE IS USED TO PRINT OUT A BASIC ERROR 

3:4 MESSAGE. ALONG WITH A MESSAGE INFORMING THE OPERATOR WHICH TEST IS 

34 ABOUT TO BE ABORTED. PROVIDED EXTENDED ERROR INFOMATION HAS BEEN 

34 REQUESTED, OTHERWISE ONLY A “TEST FAILURE” MESSAGE WILL BE PRINTED. 
,* 

;* INPUTS R1 - CONTAINS THE ADDRESS OF THE MESSAGE TO BE PRINTED. 

34 ERRMSG - CONTAINS THE ADDRESS OF THE MESSAGE THAT INDICATES 
34 THE TEST THAT IS BEING PERFORMED, EG OMA, BREAK ETC. 

;* 

3# OUTPUTS: MESSAGES ARE PRINTED AT THE OPERATORS CONSOLE. 

sa “TESTNAME TEST ABORTED” 


;* 
;* CALLING SEQUENCE: 
a 


3% 
;* COMMENTS: 


34 


INCLUDE THE LABLE "ER1603” AS THE MESSAGE POINTER 
PARAMETER IN THE DRS ERROR REPORT MACRO CALL. 


fe 
- SUBORDINATE ROUTINES CALLED: NONE. 


i PPREERESERESESEREEAREREDEEEEEAEASESODEAARASESDAEDADADDDAERDADDEDDERERLALEDOEES 


2s: 


BGNMSG 
SAVE 
MOV 


BIC 
BNE 


ER1603 
ER1603:;: 
sSAVE THE CONTENTS OF THE GPRS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
OBITO6,RO ;TRY TO CLEAR THE 
OPTION,RO sEXT'D ERROR REPORTING FLAG 
2$ sEXIT IF FLAG NOT SE). 
PRINTB #EF0OSO3,R1 sPRINT BASIC MESSAGE ON OPERATORS CONSOLE. 
MOV R1,-(SP) 
MOV GEFOSO3, -( SP) 
MOV @2,-CSP) 
MOV SP RO 
TRAP CsPNTB 
ADD 06, SP 
ERRMSG , RO sGET THE “TEST MESSAGE”. 
9EF 1601,R2 ;PRINT “TEST ABORTED” MESSAGE. 


MOV 
PRINTB 


PASS 
ENDMSG 


MOV Re, -(SP) 
MOV EF 1601, -( SP) 


MOV 02, -(SP) 
MOV SP ,RO 
TRAP CSPNTB 
ADD 06, SP 
sRESTORE THE CONTENTS OF THE GPRS. 
JSR PC,a(SP)+ sRETURN TO PREGOS SUBRT. 
L10004; 
TRAP CSMSG 





. Be 


A 
135 


MMMM 
ry 


2164 


2170 


fu Po fof fo fo 
oe ee pe pe 


ERROR REPORTING ROUT INE 


014162 


014166 
014174 


014176 


-11 FUNC TST PaRT4 


004567 
032767 
001507 


016504 
006203 


012704 
012701 
032705 


MACRO 


171156 


000100 


005234 


005746 
000003 
000010 


011106 
010105 
000002 


165766 


-SBTTi GLOBAL ERROR REPORTING ROUTINE 


BS 
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- ER6201 - 


~ ER6201 - 


5 OOOO OOO Oe OeESOOOOOOSOSESOSESSODESOOEEESEDADDDEEEEEEEEEEEEESEEEEEEEOOEbEEESS 


3° THIS IS AN ERROR REPORTING SUBROUTINE WHICH IS INTENDE), “2a USE IN THE 
3° FRAMING ERROR AND PARITY ERROR TESTS. IT REPORTS ERRO? INF Ove °" TION 

3@ WHEN A CHARACTER HAS BEEN READ FROM THE DUT WITH THE INCORRECT 

3° COMBINATION OF FRAMING AND PARITY ERROR BITS. THESE ERRORS ARE REPORTED 
:° ONLY IF EXTENDED ERROR REPORTING HAS BEEN REQUESTED. 

Gf 

s@ INPUTS: R2 - DATA BYTE READ FROM THE DUT, INCLUDING ERROR FLAGS. 

3¢ RS - LINE NUMBER MULTIPLIED BY 2. 

sé - MESSAGE FLAGS, WHICH MESSAGES TO REPORT. 

36 SIT1l AND BITS - INDICATE WHICH MESSAGES ARE TO BE 

36 REPORTED, FRAMING OR PARITY RESPECTIVELY. 

3¢ BITO AND BIT 2 - “SET’/s "CLEAR" MESSAGE FOR 

3° FRAMING AND PARITY ERRORS BITS. 

tf 

s@ OUTPUTS: MESSAGES ARE PRINTED AT THE OPERATOR CONSOLE, 

34 

s@ CALLING SEQUENCE: INCLUDE THE LABEL “ER6201” AS THE MESSAGE POINTER 

3¢ PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
3° 

3¢ COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
3¢ THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD OF THE DUT 
30 CSR MAY BE ALTERED. 

3¢ 


s¢ SUBORDINATE ROUTINES USED: PRILPR. 


bs OOOOOSOSOOOAOOSESEOOOEEODOOEEEEREOEEEEEEEDEEEEEREDEEEDEEEDEEEEEEEDEDESEELACOOS 


BGNMSG ER6201 


SAVE 


JSR 


ER6201:: 


sSAVE THE CONTENTS OF THE GP 
RS .PREGOS 


R'S, 
sCALL REGISTER SAVE sSuUBRT. 


3° 
s EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 


BIT 
BEG 


MOV 
ASR 
A 


©BITO6 ,OPTION 
603% 


TXRXLBC RS), RG 
RS 


SR Ra 
PRINTB €F6201,R3,R4 


3° 
3 REPORT FRAMING ERROR PROBLEM, 


MOV 
BIT 


sEXTT WITH TEST FAILURE MESSAGE IF 
sNO EXTENDED ERROR REPORTING HAS BEEN REQUESTED 
sDOURING THE SOFTWARE QUESTIONS. 


sGET THE ASSOCIATED Tx LINE NUMBER, 
sCALCULATE THE RX LINE NUMBER. 
sCALCULATE ps a LINE NUMBER, 


sREPORT THE € TYPE AND LINE NUMBERS, 
MOV EF 6201, -( SP) 
MOV P,RO 
TRAP CSPNTB 
ADD #10,SP 


sSELECT THE “ERROR BIT CLEAR” MESSAGE, 
sSELECT EXPECTED “ERROR BIT SEI” MESSAGE. 
sTEST IF FRAMING ERROR MESSAGE TO BE REPORTED. 


f ‘ 
. 


me 


Pr Hea! FHliGe "A eBAPIAG aBOFRRe"1200 15-"AB.94 09:48 Pace 42-1 
3185 giages 
5185 14556 


2186 


2202 
2203 


2204 
2205 
2206 


2207 


014416 


012701 


032705 
001403 


010401 
012704 
01014¢ 


010105 


006157 
000003 


000010 


2s: 


3° 
s REPORT PARITY 


i 
6$: 


108: 


BIT 


PRINTX 


JSR 
PASS 
ENDMSG 


®BITS.RS 
103 


GEM6202 ,R4 
®ENOSO? ,R1 


ERROR PROBLEM. 


eBIT2,R5 
8s 
R4,R1 


GEMOSO9 ,R4 
®EF6203,R4,R1 


SEF 1603,R2 


PC, PRILPR 
JSR 


sBRANCH TO REPORT PARITY ERROR. 

sTEST “ERROR BIT SET/CLEAR” MESSAGE FLAG. 
:BRANCH TO REPORT ERROR BIT “CLEAR”. 
#SELECT EXPECTED “CLEAR” STATE MESSAGE. 
sSELECT THE “ERROR BIT SET" MESSAGE. 
sREPORT THE SOUPCE OF THE PROBLEM. 


MOV R4,-(SP 

MOV @EF 6202, -( SP) 
MOV 63, -(SP) 

MOV SP RO 

TRAP CSPNTx 


ADO 10,5 
sTEST IF PARITY ERROR MESSAGE TO BE REPORTEC. 
sEXIT IF PARITY ERROR REPORT TO BE SKIPPED. 
sSELECT THE “CLEAR” MESSAGE. 
sSELECT THE EXPECTED “SET” STATE MESSAGE , 


sTEST “SET"/"CLEAR” MESSAGE FLAG. 

sBRANCH TO REPORT ERROR BIT CLEAR. 

sSELECT THE EXPECTED “CLEAR” STATE MESSAGE. 
sSELECT THE “ERROR BIT SET” MESSAGE. 
sREPORT THE SOURCE OF THE PROBLEM. 


MOV »RO 
TRAP CSPNTx 
ADD 010,SP 


sREPORT ACTUAL DATA RECEIVED. 
MOV Re, -( SP) 


MOV 02, -(SP) 
MOV SP | RO 
TRAP CSPNTX 
ADD 06, SP 


sREPORT THE CONTENTS OF THE LPR FOR THIS LINE. 
sRESTORE THE CONTENTS OF THE GPR'S, 
PC,@( SP)» sRETURN TO PREGOS SUBRT, 


10005; 


TRAP CSMSG 


Li FUNC TST PART4 


Dry . 
GLOBAL ERROR REPORTING 


0 
2239 
0 


0 
2240 


2241 
2242 


014420 
014420 


54 014420 


014426 


014516 
014516 
014516 


032767 
001433 


010146 


010246 
012746 
012746 
010600 
104415 
062706 


1044283 


MACRO 
ROUT INE 


000100 


006410 
000002 


Led 


1200 15-MAR-84 09:48 PAGE 43 
- EROOO1 - 


-SBTTL GLOBAL ERROR REPORTING ROUTINE 


5 OPOOSOOOOS63 6668 9656056606060660000000000600000008 


THIS IS AN ERROR RE 


INPUTS: 


34 
3* OUTPUTS: 
s 


* CALLING SEQUENCE: 
& 


3¢ 

s* COMMENTS: 
34 

;* SUBORDINATE 


5 OOOOEREEDSDEESESESEAEADEOSEAESEEEAEEEESEEDAEDOEREEEEDEEEDDEEEERDEOEEEACROOESS 


165534 


2$; 


BGNMSG 


BIT 
BEG 


PRINTB 


PRINTX 


PRINT X 


ENDMSG 


Ri - ADDRESS OF 
R2 - SINGLE BYTE 


- ER9OO1 - 


MESSAGE TO PRINT FIRST. 
CGUVE WHICH HAS BEEN READ FROM THE Dur. 


R4 - LINE NUMBER ASSOCIATED WITH THE CODE 
A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE . 


INCLUDE THE LABEL “ER9001” 
PARAMETER IN THE DIAG SUPER 


“EQ SS 


pdetectedieh hb EELLLLLL LTT TTT TT TT" 
ING SUBROUTINE WHICH REPORTS AN UNEXPECTED 
oa CODE CAN BE A BMP 


AS THE MESSAGE POINTER 
ERROR REPORT MACRO CALL. 


THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 


ER9001 


#BITO6,OPTION 
2s 


®€F 9001 ,R1 


PEF 9002 ,R4 


SEF 9003 ,R2 


ROUTINES USED: NONE. 


ERSOOL:: 


3° 
s EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 


sEXIT WITH TEST FAILURE MESSAGE IF 
3NO EXTENDED ERROR 
sDURING THE SOFTWARE QUESTIONS. 


sREPORT TYPE OF CODE FOUND. 


ADD 
sREPORT THE LINE NUMBER OF THE = 


L 10006; 
TRAP 


REPORTING HAS BEEN REQUESTED 


R1,-CSP) 
ey? Tas aa 


R4,-(SP) 
vEF 9002, -( SP) 


CSMSG 


c 
GUA! EXRGRREeCATINc ROUT 20° 1S-MAB.G2 99:48 PAGE 40 e 


0 
2278 


014520 


; 014520 


014520 
014526 


032767 
001462 


012746 


000100 165434 


177400 
006520 
000003 
000010 


011476 
006437 
000003 


000010 


:* THIS IS AN ERROR REPORTING SUBROUTINE WHICH IS _ INTENDED FOR USE IN THE 
3° TRANMSISSION AND RECEPTION TESTS. IT REPORTS THE TYPE OF ERROR WHICH 
3° HAS OCCURRED WHEN INCORRECT DATA IS RECEIVED FROM THE DUT. THIS 


- ADDRESS OF MESSAGE TO PRINT FIRST. 

R2 - DATA BYTE READ FROM THE DuT. 

;* RS - LINE NUMBER MULTIPLIED BY 2. 
- EXPECTED DATA BYTE, BIT 15 SET IF “NONE”. 


* 
3# OUTPUTS: A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE . 


3* CALLING SEQUENCE: INCLUDE THE LABEL "ER9002" AS THE MESSAGE POINTER 
36 PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 


3@ COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
;* 
s* SUBORDINATE ROUTINES USED: PRILPR. 


b COBSSSORAEEEESEEEEESESOSEEEEESEDSAEEEEEDSEDEDEREDEEDORDREEREDEARREERALESEEOSSE 


BGNMSG ER9002 
ER9002: : 


3* 

s EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 

BIT @BITO6,OPTION ;EXIT WITH TEST FAILIRE MESSAGE IF 

BEQ 62$ sNO EXTENDED ERROR RLPORTING HAS BEEN REQUESTED 
sDURING THE SOFTWARE QUESTIONS. 


ASR RS sCALCULATE THE LINE NUMBER, 
sMASK OUT ALL BUT DATA IN READ CHAR, 


BIC 177400,R2 

PRINTB EF 9006,R1,R3 sPRINT THE FIRST LINE OF THE MESSAGE. 
MOV R3,-(SP) 
MOV R1,-(SP) 
MCV GEF 9006, -( SP ) 
MOV @3,-(SP) 
MOV SP ,RO 
TRAP CsPNTB 
ADD #10,SP 

PRINTX EF 9004, 9EM9010,Rz sPRINT ACTUAL DATA, 
MOV R2,-(SP) 
MOV o€ 10, -( SP) 
MOV oeF » (SP) 
MOV 93, -<(SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD #10,SP 

TST RS sCHECK FOR “NONE” CODE SET IN EXPECTED DATA, 


BMI 2s sBRANCH TO PRINT “NONE” MESSAGE IF FLAG SET. 
PRINTX £F 9004, 0EM9009,R4 sPRINT EXPECTED DATA, 


4 


or teAd ERROR REPORT Inc nour ike or vatieg 599248 PAGE 44-1 


01 
2284 014670 
2285 014674 

014674 

014674 


2s: 


JSR 


ENDMSG 


PC,.PRILPR 


BR 6us sEXIT THIS ROUTINE 
PRINTX #EF9005,8EM9009 ;PRINT MESSASE INDICATING NO EXPECTED DATA, 
o€ 


AOD 
sPRINT CONTENTS OF THE LPR REGISTER. 


1.10007; 


MOV PRO 
TRAP CSPNTx 
ADD 010,SP 
MOV M9009, -( 
MOV EF 9005, -( 
MOV @2,-(SP) 
MOV SP RO 
TRAP CSPNTX 

96, SP 
TRAP C$MSG 


-~( SP) 


SP 


) 
) 


014676 
014676 


014676 
014704 


014774 


OcOeAl EKRGR REPORT ING 


032767 
001470 


006203 


010146 
012746 
012746 
010600 
104415 
062706 


012701 
032702 


M1200 15-MAR-84 09:48 PAGE 45 “ 
ROUT INE : 7 anes 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9003 - 
5 OOPOOOOSOSSSOASEASESESEEESSESESEORSSOEDOEEEEREOREREREREDROERDRERAREREDEEEOEEEES 
34 THIS IS AN ERROR REPORTING SUBROUTINE WHICH IS INTENDED FOR USE IN THE 
4 TRANMSISSION AND RECEPTION TESTS. IT REPORTS ERROR INFORMATION WHEN 
36 A CHARACTER HAS BEEN READ FROM THE DUT WITH AN ERROR FLAG OR FLAGS 
3* SET CIE. OVER-RUN, FRAMING, OR PARITY FLAG). 
34 
3* INPUTS: Re - DATA BYTE READ FROM THE DUT, INCLUDING ERROR FLAGS. 
34 RS - LINE NUMBER MULTIPLIED BY 2. 
;* 
s* OUTPUTS: A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE . 
3% 
;* CALLING SEQUENCE: INCLUDE THE LABEL “ERSOO3" AS THE MESSAGE POINTER 
; 34 PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
34 
3* COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
7) THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD OF THE DuT 
26 CSR MAY BE ALTERED. 
3% 
3;# SUBORDINATE ROUTINES USED: NONE. 
5 ORPOSEREEEDEOEEREEEEESESEEEEAREEEDEREEEREDEOEADREREDOREAEADRERDRDRERDEDSRDEOOS 
BGNMSG ER9003 
ER9003:: 
3* 
; EXIT THE TEST IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 
000100 165256 BIT SB ITO6,OPTION sEXIT WITH TEST FAILURE MESSAGE IF 
BEQ 62$ sNO EXTENDED ERROR REPORTING HAS BEEN REQUESTED 
sDOURING THE SOFTWARE QUESTIONS. 
ASR R3 sCALCULATE THE LINE NUMBER. 
PRINTB 9%€F9007,R3 sREPORT THE ERROR TYPE AND LINE NUMBER , 
MOV R3,-CSP) 
006544 MOV @EF 9007, -¢ SP) 
000002 MOV 02, -CSP) 
MOV RO 
TRAP CSPNTB 
000006 ADN 06, SP 
MOV R2,R1 sEXTRACT THE RECEIVED CHARACTER FROM THE 
177400 BIC #177400,R1 ;_ PASSED IN CHAR VALUE WITH FLAGS. 
PRINTX #EF9008,R1 sREPORT THE VALUE OF THE RECEIVED CHAR. 
006640 MOV F9008, -( SP) 
000002 MOV 02, -(SP) 
MOV PO 
TRAP CSPNTX 
000006 ADD 06, SP 
3° 
; REPORT OVERRUN FLAG SET IF NECESSARY. 
;* 
011522 MOV 9€M9011,R1 sSELECT THE OVERRUN ERROR MESSAGE. 
0000 BIT #BIT14,R2 sCHECK OVERRUN ERROR FLAG IN PASSED IN CHAR, 
BEG 2s sSKIP ERROR IF OVERRUN ERROR FLAG WAS CI EAR. 
000036 JSR PC ,50$ sREPORT THE OVERRUN ERROR FLAG WAS SET. 


2 015004 
2335 015010 
2336 015012 
2237 


1 

2858 olsose 
015066 

015066 


012701 
327 


006677 


or belt ERROR REPOR ING Routine tO 15 -MAR-8409:48 PAGE 45-1 


SEQ 5% 
3 REPORT FRAMING FLAG SET IF NECESSARY. 
g- 
2s: MOV 9EM9012.Ri ;SELECT THE FRAMING ERROR MESSAGE. 
sit 6BIT13,.R2 :CHECK FRAMING ERROR FLAG IN PASSED IN CHAR. 
BEG 4$ sSKIP ERROR IF FRAMING ERROR FLAG WAS CLEAR. 
JSR PC .5C$ sREPORT THE FRAMING ERROR MESSAGE. 
:¢ 
; REPORT PARITY FLAG SET IF NECESSARY. 
37 
4%: MOV EM9013.R1 ;SELECT THE PARITY ERROR ME =. 
BIT ®BIT12,.R2 ;CHECK PARITY ERROR FLAG IN PASSED IN CHAR, 
BEG 60$ sEXIT ROUTINE IF PARITY ERRO FLAG WAS CLEAR 
JSR PC ,50$ sREPORT THE PARITY ERROR ME 
BR 603 sEXIT THIS ROUTINE. 
s¢ 
3 LOCAL SUBROUTINE TO REPORT AN ERROR FLAG STATUS. 
, 
50%: PRINTX #EF9009,R1 
MOV @EF 9009, -( SP) 
MOV »RO 
TRAP CSPNTX 
ADD 06,SP 
RTS PC 
60%: JSR PC. PRILPR sREPORT THE LPR CONTENTS FOR THIS LINE, 
62%: ENDMSG 
L10010; 
TRAP CSMSG 


+ Se 


DrU-11 FUNC TST PARTG MACRO 41200 15-MAR-84 09:48 PAGE 46 CEQ 66 
GLOBAL ERROR REPORTING ROUTINE - ER9OOS - 
2355 -SBTTL GLOBAL ERROR REPORTING ROUTINE - FR9004 - 
2356 5 OOOO DOS OCR OESESEOOSEOSESSOSOSESSEDOEEEEEEEEEEEEEEEEDEDEEEEDEEEEREEEEEEOLLOOS 
2357 ;4 THIS IS AN ERROR REPORTING SUBROUTINE WHICH REPORTS ERROR SUMMARIES 
2358 ;* FOR LINES WHICH HAVE EXCEEDED THE SPECIFIED MAXIMUM NUMBER OF 
2359 ;6 INDIVIDUAL RECEPTION ERRORS, PROVIDED EXTENDED ERROR REPORTING HAS 
2360 36 BEEN REQUESTED BY THE OPERATOR. 
1 34 
2362 3* INPUTS: Rl - ADDRESS OF MESSAGE TO PRINT FIRST. 
2363 36 ERCNTB - LABEL AT BASE OF LINE ERROR COUNTERS TABLE. 
he 36 ERSMRF - “REPORT ERROR SUMMARY FOR LINE” FLAGS. 
34 
2366 3@ OUTPUTS: A MESSAGE IS PRINTED AT THE OPERATOR CONSOLE. 
34 
2368 ;* CALLING SEQUENCE: INCLUDE THE LABEL “ER9004" AS THE MESSAGE POINTER 
2569 36 PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
3% 
2371 3;* COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
qo78 34 THE CONTENTS OF GPR’'S R2, R3, R4&, AND RS ARE DESTROYED. 
;* 
2374 ;* SUBORDINATE ROUTINES USED: NONE . 
2375 5 COODSPAAESESEEEEEESEESESEREEEEEOOOAEAEREDEERREDDDDEEDEREDEDEDERDAREEERERESES 
2376 
2377 015070 BGNMSG ER9004 
015070 ER9004: : 
2378 015070 012700 000100 MOV @BITO6,RO ;TRY TO CLEAR THE 
2379 015074 700 165062 BIC OPTION,RO sEXT'D ERROR REPORTING FLAG 
2380 015100 001040 BNE 6$ sEXIT IF FLAG NOT SET. 
2381 015102 PRINTB #EF0O503, 0EM9014 sREPORT THE SECONDARY ERROR MESSAGE. 

15102 012746 011551 MOV 9EM9014, -( SP) 
015106 012746 005530 MOV OEFO5S03, -( SP) 
015112 012746 000002 MOV 2, -(SP) 
015116 O1 MOV SP RO 
015120 104414 TRAP =C$PNTB 

15122 0627 000006 ADD 06,SP 

2382 015126 CLR Re ;CLEAR THE LINE COUNTER. 

2383 015130 016703 165344 MOV ERSMRF ,R3 sGET THE ERROR SUMMARY FLAGS. 

23 015134 00 CLR R4 ;CLEAR “LINE COUNTER TIMES 2” OFFSET. 

2385 015136 000241 2s: CLC sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 

2 15140 ROR R53 ;SHIFT ANOTHER ERROR SUMMARY FLAG INTO CARRY. 
2387 015142 103013 = &s sSKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR. 
2388 015144 PRINTX #EF9010,R2,ERCNTB(RG) 

15144 016446 003302 MOV ERCNTB(R4), -(SP) 
015150 01024 MOV R2,-(SP) 
015152 012746 006736 MOV GEF 9010, -( SP) 
015156 012746 000003 MOV @3,-(5S 
015162 O1 "] SP RO 
015164 104415 TRAP C$PNTX 

15166 062706 000010 ADD #10,SP 

2389 015172 012405 4$: MOV (R4)+,R5 s INCREMENT THE LINE OFFSET By 2. 

23 015174 005202 INC sINCREMT THE LINE COUNTER, 

2391 015176 005703 TsT RA sCHECK THE ERROR SUMMARY FLAGS. 

2392 0152 001356 BNE es sIF MORE FLAGS SET, LOOP TO DO OTHER LINES. 
2393 015202 6$: ENDMSG 

15202 L1iOOL1;: 

015202 104423 TRAP C8MSG 


OMU-11 F 
GLOBAL ERROR 


2434 
2435 
2436 
2437 


015204 


0 
015210 


015214 
015220 


015222 
0 


S266 
015270 
015274 
015276 
015300 
015302 
015302 


TST PART4 
REPORT ING 


010146 
012746 
012746 
010600 
104414 
062706 


MACRO M1200 
ROUT INE 


170114 


000100 


164742 


SEQ 41 


15-MAR-84 09:48 PAGE 47 
- ER9005 - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER9OOOS - 
5 OOOOODOOSSESOASSSESSEDESESECESESOOEEESEEAEEEOEDEEEDEREEOEEEEEEEEEDESEEEEOEEO‘S 
34 THIS IS AN ERROR REPORTING SUBROUTINE WHICH REPORTS INCOMPLETE DATA 
34 TRANSMISSIONS OR RECEPTIONS. 
;* 
3* INPUTS: Rl - EITHER “TRANSMITTED” OR “RECEIVED” TO INDICATE Tx OR Rx. 
3* R2 - BIT MAP OF LINES WHICH DID NOT COMPLETE TX OR Rx, 
34 R4 - ADDRESS OF BASE OF THE CORRECT CHARACTER COUNTERS TABLE. 
34 DPLENB - LABEL AT BASE OF DATA PATTERN LENGTH TABLE. 
34 EM9015 - SYMBOLIC ADDRESS OF THE “TRANSMITTED” MESSAGE. 
;* 
;# OUTPUTS: A MESSAGE IS PRINTED AT THE OPERATOR CONSOLE . 
;* 
s# CALLING SEQUENCE: INCLUDE THE LABEL "ER9005” AS THE MESSAGE POINTER 
38 PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
3;¢ 
3* COMMENTS: THE MESSAGE IS PRINTED AS BASIC AND EXTENDED ERROR INFORMATION. 
34 THE CONTENTS OF THE INDIRECT ADDRESS FIELO IN THE DUT CSR MAY 
Lf BE ALTERED. 
32 
3# SUBORDINATE ROUTINES USED: PRTILPR. 
bAERBESORERESEEEESEDEDEODEESESEDESOERESEDEDEDEEDADERADDDDADEEREDEDRERDRRLESEOELE 
BGNMSG ER9005 
ER9OOS: : 
SAVE sSAVE THE CONTENTS OF THE GPR‘S. 
JSR RS , PREGOS sCALL REGISTER SAVE SUBRT. 
MOV SB ITO6,RO ;TRY TO CLEAR THE 
BIC OPTION,RO sEXT'D ERROR REPORTING FLAG 
BNE 10$ sEXIT IF FLAG NOT SET. 
PRINTB #€F9013,R1 sREPORT THE SECONDARY ERROR MESSAGE. 
MOV R1,-CSP) 
MOV MEF 9013, -( SP) 
MOV @2,-(SP) 
MOV SP RO 
TRAP CsPNTB 
ADD » SP 
CLR R53 sCLEAR THE LINE COUNTER. 
CMP EM9015,R1 sCHECK IF ADDRESS CORRESPONDS TO Tx MESSAGE . 
BNE 6$ sBRANCH IF RECEPTION MESSAGE TO BE PRINTED, 


3° 
; PERFORM TX INCOMPLETE ERROR MESSAGE REPORTING. 


PRINT X 


#EM90 50 


R2 
4% 
SEF 9020 ,R3 


~RO 
CSPNTX 
ADD 04,5? 
sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 
sSHIFT “TX NOT DONE” FLAG INTO CARRY. 
;SKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR, 
sPRINT “TOO FEW TX, ACTIONS gee il a tani 
“(Ss 


OteAl ERRGA Re 


x 
Lr 


SF Q He 


PARI4 M1200 15-MAR-84 09:48 PAGE 47-1 
PORTING INE - EROOOS - 
012746 007225 MOV EF 9020, -( SP) 
012746 000002 MOV @2,-(SP) 
01 MOV SP RO 
104415 TRAP CSPNTX 
062706 000006 ADD 06 ,SP 
004767 005236 PC,PRILPR sREPORT CONTENTS OF LPR REGISTER FOR THIS LINE. 
4%: INC R3 s; INCREMENT LINE COUNTER. 
005702 TsT R2 sCHECK THE “TX NOT DONE FLAGS”. 
001357 BNE 2$ sIF MORE FLAGS SET, LOOP TO DO OTHER LINES. 
BR 10$ sEXIT THIS ROUTINE. 
3* 
s PERFORM RX INCOMPLETE ERROR MESSAGE REPORTING. 
3-7 
000241 6$: CLC sCLEAR THE CARRY FOR THE FOLLOWING ROTATE. 
ROR R2 sSHIFT “RX NOT DONE” FLAG INTO CARRY. 
103031 BCC 8$ sSKIP PRINTING MESSAGE IF FLAG FOR LINE CLEAR, 
303 ASL R3 sSHIFT LINE # TO GIVE CORRECT TABLE OFFSET. 
6 005234 MOV TXRXLBCR3),.RS ;GET THE “ASSOCIATED” RECEIVE LINE OFFSET. 
010246 MOV R2,-CSP) sSAVE THE “RX NOT DONE” FLAGS ON THE STACK. 
0502 MOV RS .R2 sCOPY THE ASSOCIATED TX LINE OFFSET. 
016505 003442 MOV CHCNTBCRS).RS ;GET THE TOTAL NUMBER OF EXPECTED CHARS. 
2 ASR R2 sSHIFT THE TABLE OFFSET TO GIVE A LINE NUMBER . 
006203 ASR R3 sSHIFT TABLE OFFSET TO GIVE LINE NUMBER. 
PRINTX @#EF9012,R3,R1,(R4),R5,R2 ;REPORT NUMBER OF CHARS ON LINE. 
010246 MOV R2, -CSP) 
010546 MOV RS, -CSP) 
011446 MOV CR4),-CSP) 
010146 MOV Ri, -CSP) 
010346 MOV R3, -( SP) 
012746 007025 MOV EF 9012, -( SP) 
012746 000006 MOV #6,-(S 
01 MOV SP ,RO 
104415 TRAP CSPNTX 
062706 000016 AOD #16,SP 
012602 MOV (SP)+,R2 sRESTORE THE “RX NOT DONE” FLAGS. 
004767 005136 JSR PC,PRTLPR sREPORT CONTENTS OF LPR REGISTER FOR THIS LINE. 
005724 83; TST CR4)> s INCREMENT THE CHARACTER COUNTER TABLE. 
005203 INC R3 s INCREMENT THE LINE COUNTER. 
005702 TST R2 sCHECK THE "RX NOT DONE FLAGS”. 
001340 BNE 6$ sIF MORE FLAGS SET, LOOP TO DO OTHER LINES. 
10%: PASS sRESTORE THE CONTENTS OF THE GPRS. 
004736 . JSR PC,@(SP)>» sRETURN TO PREGOS SUBRT, 


L10012: 


TRAP CsMSG 


GtOeAL ERROR’ ae 


2493 
2494 


015444 


ot eree 
015502 


PART4 


PORTING ROUTINE 


000100 
164506 


006520 
000003 


000010 


M1200 15-MAR-84 09:48 PAGE 48 
- ERSIO1 - 


-SBTTL GLOBAL ERROR REPORTING ROUTINE - ER910i - 


5 OOOO OOOSSAHAESEEEEEEESOSEOEESESESEOOEEEEDEADEEEEDEEEDEDEDERRDDDEDEDEEEEOSOOSS 


34 THIS IS A GENERAL ERROR REPORTING SUBROUTINE WHICH REPORTS A MESSAGE 
pe WHICH TAKES A SINGLE, 2 DIGIT DECIMAL ARGUMENT AFTER THE END OF AN 
;* ASCII MESSAGE. 

e 

3*@ INPUTS: Rl - VALUE TO BE PRINTED AFTER MSG AS 2 DECIMAL DIGITS. 


34 R2 - ADDRESS OF MESSAGE TO PRINT FIRST. 
;* 
3* OUTPUTS: A MESSAGES IS PRINTED AT THE OPERATOR CONSOLE. 


34 
3*# CALLING SEQUENCE: INCLUDE THE LABEL “ER9101" AS THE MESSAGE POINTER 
;* PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 


3% 

3* COMMENTS: THE MESSAGE IS PRINTED AS BASIC ERROR INFORMATION, 
;* 

3# SUBORDINATE ROUTINES USED: NONE. 


b PORPOREREEEESEEEESEEEEEEESEEAEEEEEREDOREERADEDAOAEDADEEADDDDEREREDEDEREEROESES 


BGNMSG ER9101 
ER9101:: 


MOV #BITO6,RO sTRY TO CLEAR THE 
as =e sEXT'D ERROR REPORTING FLAG 


sEXIT IF FLAG NOT SET. 


PRINTB EF9006,R2,R1 sREPORT THE STRING FOLLOWED BY be NUMBER . 
Vv 


MOV o3,-( 
V SP ,RO 
TRAP CSPNTB 


ADD #10,SP 


2s: ENDOMSG 
L100153; 
TRAP C$MSG 


“EG 


7 
, 
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2496 -S6TTL GLOBAL ERROR REPORTING ROUTINE - ERO102 - 
2497 5 OOODRSORDEESESSSSEESDSOESESSSEEDEOEEDEESEADEEEEADEEDEDDEDEDEDEDEEDEEEDELEEEO‘ES 
2498 34 THIS IS AN ERROR REPORTING SUBROUTINE WHICH PRINTS ADDITIONAL ERROR 
2499 34 INFORMATION AFTER THE ERROR MESSAGE HEADER, PROVIDED EXTENDED ERROR 
2500 34 REPORTING HAS BEEN REQUESTED. 
2501 3 THIS ROUTINE IS PASSED A GIT MAP WHICH SPECIFIES THE LINES FOR WHICH 
soos s¢ THE ERROR CONDITION SHOULD BE REPORTED. 
3% 
2504 ;* INPUTS: R1 - ADDRESS OF THE MESSAGE TO BE PRINTED BY THIS ROUTINE. 
fans 3* R2 - BIT MAP OF LINES FOR WHICH TO REPORT ERRORS. 
;* 
pid ;# OUTPUTS: MESSAGES ARE PRINTED AT THE OPERATOR CONSOLE . 
3% 
2509 3* CALLING SEQUENCE: LOAD THE ADDRESS OF THE MESSAGE IN Ri. 
2510 34 LOAD THE BIT MAP OF LINES WITH ERRORS IN Re, 
2511 34 INCLUDE THE LABEL “ER9102” AS THE MESSAGE POINTER 
it} 34 CERRBLK) IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
;* 
2514 3* COMMENTS: THE OUTPUT FORMAT OF THIS MESSAGE IS: 
2515 34 “TEXT MESSAGE POINTED TO BY R1" 
2516 ;* “ERROR CONDITION ON LINE NN" 
2517 34 “ERROR CONDITION ON LINE ...” 
2518 34 THE TOP MESSAGE, AND THE MESSAGE FOR EACH LINE ARE PRINTED 
i444 ;* AS BASIC ERROR INFORMATION. 
;4 
2521 3* SUBORDINATE ROUTINES USED: NONE. 
oaee i OPPSSREOREEEESEODEEEEESESEDEASESEEREDEEDEAEREEESEEDEEAARADEEEDARADEADERRELLOE 
2524 015504 BGNMSG ER9102 
015504 ER9102:: 
2525 015504 SAVE sSAVE THE CONTENTS OF THE GPRS. 
2826 015504 004567 167614 JSR 5 .PREGOS ;CALL REGISTER SAVE SUBRT. 
3* 
eee! ; EXIT IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 
i 
2529 015510 032767 000100 164444 BIT #68 IT06,OPTION sEXIT WITH TEST FAILURE MESSAGE IF 
2530 015516 001441 BEG 60$ sNO EXTENDED ERROR REPORTING HAS BEEN REQUESTED 
tt sDURING THE SOFTWARE QUESTIONS. 
25535 015520 PRINTB 9#EFOSO3,R1 sPRINT THE FIRST LINE OF THE MESSAGE. 
015520 010146 MOV R1,-CSP) 
015522 012746 005530 MOV EF OSOS, -( SP) 
015526 012746 000002 MOV @2,-(SP) 
015532 01 MOV , 
015534 104414 TRAP CSPNTB 
015536 706 000006 ADD 06, SP 
2534 015542 005003 CLR R3 sCLEAR THE LINE NUMBER. 
2535 015544 000241 2s; CLC sPREPARE TO ROTATE NEXT BIT OUT OF MAP. 
2536 015546 006002 ROR Re sGET THE NEXT BIT OF THE BIT MAP. 
2537 015550 103011 8cc 4% ;SKIP PRINTING MESSAGE IF THE BIT IS CLEAR. 
2538 015552 PRINTS @€F9103,R3 sREPORT THIS LINE HAD THE ERROR. 
015552 010346 MOV R35, -(SP) 
015554 012746 007311 MOV OEF 9103, -( SP) 
015560 012746 000002 MOV 02, -C(SP) 
015564 010600 MOV SP ,RO 
015566 104414 TRAP CSPNTB 


015570 062706 000006 ADD 06, 5° 
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2539 015574 005203 4%: INC R3 ; INCREMENT ne nag COUNTER. 

2549 015576 005702 TsTt R2 ;CHECK THE BIT 

2541 015600 001361 BNE 2s ;LOOP IF NOT ALL'S SET BITS REMOVED FROM BIT MAP. 

2542 015602 PRINTB #€F9101 sPRINT A BLANK LINE. 
015602 012746 007306 MOV EF 9101, -( SP) 
015606 012746 000001 MOV #1, -(SP) 
015612 010600 MOV SP RO 

TRAP CsPNTB 


015616 062706 000004 ADD 
2543 015622 60%: PASS ;sRESTORE THE SAVED satties OF THE GPRS 

015622 004736 JSR PC,aCSP)- RETURN TO PREGOS SUBRT. 
2544 015624 ENDMSG 

015624 L10014; 


015624 104423 TRAP C$mMSG 


66 
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PORTING ROUTINE - EROSOI - 
-SBTTL GLOBAL ERROR REPORTING ROUTINE - EROSOL - 
5 OOOCPODOSOEESODESEESEDESESOSOSEESOOEEESEEEEDEDOEEEEEEOEEEEEEEEEEDEEEEEOEESLCES 
3° THIS IS AN ERROR REPORTING SUBROUTINE WHICH PRINTS ANY BMP CODES 
3° THAT ARE FOUND IN THE BMP CODE QUEVE, TOGETHER WITH THE THE NUMBER OF 
30 THE TEST THAT WAS EXECUTING AT THE TIME THE BMP CODE WAS LOGGED. 
3¢ PROVIDED EXTENDED ERROR REPORTING HAS BEEN ENABLED. 
3° 
s¢ INPUTS: Ri - THE ADDRESS OF THE FIRST MESSAGE TO BE REPORTED. 
3¢ R2 - THE ADDRESS OF THE NEXT EMPTY CELL IN THE QUEUE. 
,@ 
s@ OUTPUTS: THE TEST NUMBER FOLLOWED BY THE BMP CODE ARE PRINTED AT THE 
30 OPERATOR CONSOLE . 
3¢ 
s@ CALLING SEQUENCE: INCLUDE THE LABEL “ER9301” AS THE MESSAGE POINTER 
36 PARAMETER IN THE DIAG SUPER ERROR REPORT MACRO CALL. 
7* 
3* COMMENTS: THE MESSAGE IS PRINTED AS BASIC ERROR INFORMATION, 
3° 


3* SUBORDINATE ROUTINES USED: NONE 


bOOCOOOSOODEOEEOOOEEESEAEEEESEDESEDEEEDEDEDEDEDEEDEEDEDELERDEDEEEREDEEEOECEES 


BGNMSG ERSO3O1 
ERSSOL:; 
SAVE 3SAVE THE GPRS ON THE STACK. 
004567 167472 JSR RS ,PREGOS ;sCALL REGISTER SAVE SUBRT., 
012700 000100 MOV @BITO6 ,RO :TRY TO CLEAR THE 
046700 164320 BIC OPTION,RO sEXT‘'D ERROR REPORTING FLAG 
001064 BNE 603 sEXIT IF FLAG NOT SET. 
PRINTB #€FO503,R1 sREPORT UNEXPECTED BMP CODES FOUND. 
010146 MOV Ri, -(SP) 
012746 005530 MOV @EFOSOS3, -( SP) 
ty Eee. 000002 ad @2,-(SP 
104414 TRAP CsPNTB 
062706 000006 ADC 06, SP 
012703 002512 MOV #6MPCOB RS sGET THE START ADDRESS OF THE BMP CODE QUEUE. 
012705 012651 MOV 9EM9302 ,RS sGET THE MESSAGE TO BE REPORTED. 
012501 2s; MOV (R3)+,R1 sGET THE NUMBER OF THE TEST THAT WAS EXECUTING. 
012304 MOV CR3)+, RS :GET BMP CODE THAT WAS REPORTED OFF THE QUEUE. 
004767 000056 JSR PC,50$ :GO REPORT THE BMP CODE. 
020302 CMP R3,Re2 sCHECK IF ALL CODES HAVE BEEN REPORTED. 
103772 BLO 2s sIF IT IS NOT THE LAST BMP CODE THEN LOOP. 
3° 
s CHECK IF OVERFLOW HAS OCCURRED. 
: THE CONDITIONS FOR OVERFLOW ARE: THE POINTER CONTAINS THE ADDRESS OF THE 
s LAST CELL IN THE QUEUE, AND A BMP CODE HAS ALREADY BEEN WRITTEN INTO Trwart 
3 is 
3-- 
020227 002706 CMP R2, OBMPCOCE -4 sCHECK IF THE POINTER IS AT THE LAST LOCATION, 
001036 BNE 60% sEXIT IF NOT AT THE LAST LOCATION, 
005762 000002 TST 2(R2) sCHECK FOR A BMP CODE IN THE LAST CELL 
001433 BEQ 60% sEXIT IF NO OVERFLOW HAS OCCURED, CELL EMPT), 
012301 MOV (R3)+, Ri sGET THE TEST NUMBER OFF THE QUEUE, 
011504 MOV (R3),R4 sGET THE BMP CODE OFF THE QUEUE 


012705 012701 MOV  0€M9303.R5 sSELECT THE MESSAGE TO BE REPORTED. 
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007435 
000001 


Co 


PRINTX #EF 9302 sREPORT CVERFLOW CONDITION. 
MOV OEF 94502, -( SP) 
MOV 01, -(SP) 
MOV SP.R 
TRAP CSPNTx 
ADO 04.5 

JSR PC .50$ sREPORT THE LAST BMP CODE PLACED ON THE QUELE 

BR 60$ sEXIT. 

PRINTX SEF 9301,R5,.R1.R4 :PRINY THE MESSAGE. 
MOV R4, -( SP) 
MOV RS, -C SP) 
MOV @EF 9301, -(SP) 
MOV 04,-(SP) 

V SP RO 

TRAP CSPNTx 
ADD #12,SP 

RTS PC sRETURN, 

PASS sRESTORE THE GPR CONTENTS. 

JSR PC ,a(SP)- sRETURN TO PREGOS SUBRT. 
ENDMSG 
L10015: 

TRAP CSMSG 


Do 
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°° -SBTTL GLOBAL SUBROUTINES SECTION 

2614 

2615 ge? 

2016 s THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
2617 s THAT ARE USED IN MORE THAN ONE TEST. 


2018 ace 


2648 016020 
016020 


2668 016044 
2669 016050 
2670 016052 
2671 016054 


2674 016062 
2675 016064 


Citak! SiBholt ine **" 


004567 


010400 
005100 


040002 
016705 


E6 
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167300 


164176 


164130 


-SBTTL GLOBAL SUBROUTINE - ALTFLD - 


3° COOOSSOSSSORSSSESESEESEOSESESSOOSEOORESEDEDRDDEDEEDREDEDEEEEDEDEDEEEECEOLEES 


34 - ALTER DEVICE REGISTER FIELDS ROUTINE - 

3 THIS SUBROUTINE ALTERS THE SPECIFIED FIELD OF THE SPECIFIED DEVICE 
3 REGISTER FOR THE SPECIFIED LINES. THIS ROUTINE CAN BE USED TO SET 
3* OR CLEAR BITS WITHIN SELECTED FIELDS OF SELECTED REGISTERS. 

34 USE EXAMPLES: SET RX.BAUD.RATE FIELDS ON LINES 38 ANS 6. 

3¢ CLEAR TX.DMA BITS ON ALL LINES. 

3;¢ 

3@ INPUTS: Ri - ADDRESS OF THE REGISTERS TO ALTER, 

36 R2 - BIT FIELOS SET TO DESIRED STATES. 

34 RS - T MAP OF L S FOR WHICH TO ALTER REGISTER. 

ie R4 - MASK OF BITS TO ALTER (1 INDICATES CHANGE BIT). 

34 CSRA - CONTAINS THE ADDRESS OF THE DEVICE CSR. 

;¢ ITESTAT - SAVED STATES OF THE INTERRUPT ENABLE BITS. 

;¢ 

:@ OUTPUTS: DEVICE REGISTERS - SPECIFIED REGISTER FIELDS ALTERED. 

74 CSR IND.ADR.REG FIELD - DESTROYED. 

3? 


3@ CALLING SEQUENCE: JSR PC .ALTFLD 
‘ 


s@ COMMENTS: THIS ROUTINE READS THE SPECIFIED REGISTERS FOR ALL LINES 
a WITH NUMBERS LOWER THAN THE HIGHES SPECIFIED LINE. 
3% THIS ROUTINE DOES NOT READ THE CSR. 
3¢ 
3@ SUBROUTINES CALLED: NONE. 
$-- SPCOREEESEOESSEEEOEOOEEOESEEAEDADOREDEAODEDERADEDEDEROERDEREERALEREAEEEOOS 
ALTF.D:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 

3° 
s SET UP TO LOOP FOR EACH LINE: 
3 PREPARE THE WORD TO BE ORED INTO THE REGISTER CONTENTS. 
3 SET UP THE WORD TO WRITE INTO THE IND.ADR.REG FIELD OF THE CSR. 
3 

MOV R4,RO sCALCULATE THE NEW CONTENTs OF THE 

COM RO s REGISTER FIELDS WHICH ARE TO BE 

BIC RO,R2 ;  ALTERRED BY THIS ROUTINE. 

MOV IESTAT,RS sSET UP TO WRITE IND.ADR.REG FIELD TO 0. 


ONCE EACH LINE, ALTERING THE SPECIFIED FIELD IN THE SPECIFIED 
i REGISTER IF THE LINE HAS BEEN SELECTED FOR ALTERING. 
; EXIT THE LOOP IF NO MORE LINES TO ALTER, OR IF WE HAVE ALTERED THE MAX 
i ALLOWABLE NUMBER OF LINES (AS SPECIFIED BY NUMLNS). 


cic sPREPARE FOR ROTATE, "TST RS” DOES THIS BELOW. 
2s: ROR R3 sGET THE LINE SELECT BIT FOR THIS LINE. 
43 sSKIP SETUP IF LINE IS NOT SELECTED, 
MOV RS, @CSRA sSET DUT IND. ADR. FIELD 10 THIS LINE. 
CR1),RO sGET THE PRESENT CONTENTS t TO ALTER, 
BIC R4,RO sCLEAR THE BIT FIELDS WE ARE TO ALTER, 
6IsS R2,RO sOR IN THE NEW STATES OF THE FIELDS, 
MOV RO,(R1) sWRITE THE NEW REGISTER CONTENTS TO THE REG. 
4$; INC RS sSET LINE NUMBER TO THE NEXT LINE, 
TST R3 sCHECK FOR UNHANDLED LINES, CLEAR CARRY FLAG. 
BNE 2s sLOOP IF SELECTED LINE(S) IS NOT HANDLED, 
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- ALT 
2676 
2677 016066 60%: PASS sRESTORE GPRS. 
016066 004756 JSR PC .a(SP)- sRETURN TO PREGOS SuUBRT. 
2678 016070 000207 RTS PC sRETURN TO CALLING ROUTNE. 


Bek! Bolten" 


016072 
0 


016132 


016134 
016140 
016142 


2 
2735 016144 


004567 
005067 


012705 


012704 


G6 
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~ CALMSL - 


164136 


164162 


-S6TTL CL_OBAL SUBROUTINE - CALMSL - 


3% CRALASEOROEEESESEEEEDSOEESEEEDEDODEEEESEEEREDEESEEDEEDADEDEEEEEEEEESESES‘ES 


- - CALIBRATE MILLI SECOND LOOP COUNT SUBROUTINE 
on THIS SUBROUTINE CALIBRATES THE TIMING LOOP WHICH IS USED IN THE MSLOOP 
— ROUTINE . INE A VALUE FOR THE MSLCNT VARIABLE 


34 LINE TIME CLOCK (LTC), SO IF NO LTC 15 AVAILABLE THE DEFAULT VALUE FOR 
34 THE DELAY COUNT . 
;@ 
& 
3 INPUTS: MSLCNT - DEFAULT 1 MS DELAY LOOP COUNT VALUE, OR 
34 VALUE FROM PREVIOUS CALIBRATION. 
34 MSTICK - NUMBER OF MS PER LTC CLOCK TICK. 
34 TIMER1 - TIMER COUNTER OD BY LTC INTERRUPT SERVICE RIN. 
34 CLKHRZ - NUMBER OF LTC CLICKS PER SECOND (SO OR 60). 
3% 
3* OUTPUTS: CARRY - SET IF LTC IS AVAILABLE, AND NEW CALIBRATION PERFORMED. 
34 MSLCNT - NEW 1 MS DELAY LOOP COUNT VALUE IF LTC AVAILABLE, OR 
34 UNCHANGED IF NO LTC IS AVAILABLE. 
3* 
3# CALLING SEQUENCE: JSR PC ,CALMSL 
34 
;* COMMENTS: 
3% 
s# SUBORDINATE ROUTINES CALLED: UNSDIV,OOPS. 
t-- CASSERERASELERSEEDDEOREOEEEADEEESEESESIODODEDEEEDEDOREREREDERRDDEREROOEOEES 
CALMSL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
CLR 62$ sCLEAR THE ND TIME FLAG. 
3° 
s SYNCHRONIZE WITH THE LTC. 
g- 
2s: MOV $1,R5 sSET OUTER LOOP COUNTER TO 1 1. : 
s INCREASE THE VALUE LOADED INTO THIS COUNTER IF THE <a 
sFOLLOWING LOOP FAILS ON FUTURE, FASTER PROCESSORS, <es 
CLR RO sCLEAR THE WAIT FOR CLOCK INT COUNTER. 
MOV #1, TIMER1 ;SET COUNT OF 1 TO SYNCH WITH LTC. 
4$: TST TIMER1 sCHECK FOR COUNTER HAVING GONE TO ZERO. 
BEQ 6$ sJUMP OUT OF LOOP IF LTC HAS INTERRUPTED. 
INC RO sCOUNT THIS ITERATION OF THE INNER LOOP. 
3 G5 sLOOP IF COUNTER HAS NOT TURNED OVER. 
DEC R5 sDECREMENT THE INNER LOOP COUNTER. 
8GT 4% sLOOP IF OUTER LOOP COUNT NOT UP. 


ee; WE GOT NO LTC INTERRUPT, INDICATE THAT THERE IS NO LTC AVAILABLE, 
; LTC MUST BE FLAKEY, OR NOT REALLY AN LTC AT ALL. 


CLR CLKHRZ sCLEAR LTC FREQUENCY WORD TO INDICATE NO LTC. 
CLC s INDICATE FAILURE FOR RETURN, 
BR 60% sBYPASS THE FOLLOWING CALIBRATION PROCEDURES. 


WE ARE NOW SYNCHRONIZED WITH THE LTC, 
SET UP FOR THE CALIBRATION LOOP, 
sWILL TEST TIMER1 IN THE LOOP BELOW. 


$: MOV OTIMER1,R4 


et 


27% 
27 


2788 


016150 
S2 


°o 
ro 


016214 


016220 


0 
016310 


016312 
016314 
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005001 
005002 


005003 
012714 


005401 
016702 
010203 
160502 
010204 
005005 
005301 
100403 
060304 
005505 
000773 


016701 
010403 


MACRO MZOR , Ja tn -64 09:48 PAGE 53-1 


s;CLEAR THE OUTER LOOP COUNTER 
sINDICATE TO CHECK ALL BITS OF TIMER. 
s INDICATE TO CHECK FOR YF CLEAR, 


sLOAD TIMER1 WITH COUNT 


sLOAD MS LOOP COUNT. 

:GET THE TIMER1 VALUE. 

sSAVE WORD (LIKE IN THE REAL LOOP ). 
sLEAVE ALL THE BITS. 

;COMPARE AGAINST ZERO. 

sSET CARRY IN CASE OF SUCCESS. 

sEXIT LOOP IF TIMERL HAS CLEARED. 
sCOUNT DOWN THE INSIDE MS LOOP COUNT. 
;LOOP IF MS NOT UP. 

sDECREMENT THE MS TIME COUNT. 

sKEEP LOOPING. 

3 WE OVERFLOWED, SOMETHING IS WRONG, ABORT. 


NOW HAVE LOOP COUNT INFORMATION FOR ONE CLOCK TICK. 
OF NUMBER OF OUTER ° 


-SOPS IN Ri, EACH IS MSLCNT INNER LOOPS. 


OF THE LAST OUTER LOOP NOT EXECUTED, IN 
CALCULATE THE TOTAL NUMBER OF INNER LOOPS EXECUTED. 


NNER 
¢ LOOPS PER OUTER LOOP By 
sNUMBER OF OUTER LOOPS PERFORMED. 


; "DIVIDE Tre TOTAL NUMBER OF INNER LOOPS BY THE NUMBER OF MS PER LTC TICK 


CLR R1 
CLR re 
CLR R3 
0606001 MOV #1,(R4) 
164124 8$: MOV MSLCNT RS 
10%: MOV CR4),RO 
000120 MOV RO .64$ 
BIC RO 
cmp RO,R3 
SEC 
BEQ i2$ 
DEC 
BNE 10$ 
DEC R1 
BNE 83 
003604 JSR PC ,00PS 
3° 
; WE HAVE 
; WE HAVE NEGATIVE 
; WE HAVE THE PORTION 
; NOW WE 
12s NEG R1 
164064 MOV MSLCNT ,R2 
MOV R2,R3 
sub RS ,R2 
MOV R2,R4 
CLR RS 
14%: DEC Ri 
BMI 16% 
ADD R3,R4 
ADC R5 
BR 14% 
3 
164034 168: MOV MSTICK,R1i 
MOV R4,R3 
MOV »R2 
010076 JSR PC ,UNSOIV 
ecs 18% 
003532 JSR PC.OOPS 
164014 18%; MOV R1,MSLCNT 
000010 COM 62$ 
BNE 2s 
SEC 
603: PASS 
RTS PC 
62%: . WORD 0 
64%: -WORT OO 


3@ OF MS PER LTC TICK IS DIVISOR. 

sLSWORD OF LOOP COUNT IS LSWORD OF DIVIDEND. 
sMSWORD OF LOOP COUNT IS MSWORD OF DIVIDEND. 

; DIVIDE NUMBER OF LOOPS BY MS PER LTC TICK, 
sBYPASS OOPS IF WE'RE OK, 

sCLOCK ROUTINES ARE NOT LONG 1" peat OR BUG. 
;SET NEW VALUE FOR MS LOOP C 

sSET THE 2ND ITERATION Apes IF ‘ist ITERATION, 
sBRANCH IF ONLY ONE ITERATION DONE, 

sSET THE SUCCESS FLAG FOR EXIT, 


RESTORE GPRS, 
PC, a(SP)- ;RETURN TO PREGOS SUBRT. 
; CaReay - SUCCESS FLAG, SET IF SUCCESS. 


s2ND CALIBRATION ITERATION FLAGS, 
sDUMMY WORD FOR STORAGE OF THE READ KORD. 


GLOBAL stBRouT | 


8 
2819 016316 
016316 
2620 016322 
282 6326 


2834 016366 
2835 016370 
2636 016372 


2839 016400 
2840 016402 
2841 


PARTS 


NE 
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-SBTTL GLOBAL SUBROUTINE 


see OPPPLPOEESSEESSESESSOLESESSESEDEDOSEESEEEEDEDEDEEEEEDEEEEREEEEEEDEEESEOOES‘S 


CK FOR EXTRA CHARACTER ROUTINE - 


TER 
IF THIS ROUTINE DETERMINE 
HAS BEEN RECEIVED IT INDICATES THIS IN THE STATUS INFORMATION RETURNED 
TO THE CALLING ROUTINE 


INPUTS: 


wy. 
OUTPUTS: 
* 
CALLING SEQUENCE: 
& 


MOV 
TST 
MOV 


BPL 
BIC 


JSR 
RXPTRBCR3S),R2 
(R4)> 


Ses 
RXCNTBCRS),RO 
RO 


TARXLB(R3),R1 
=a ) 


- CHKEXT - 


THE RECE ; 
S THAT IT IS LIKELY THAT AN EXTRA CHARACTER 


RS - RX LINE NUMBER MULTIPLIED BY 2 (OFFSET INTO WORD TABLES). 
R4 - BASE ADDRESS OF RESYNC QUE CONTAINING Rx CHARS, 

RS _- MASK OF “INACTIVE” (NON-DATA) BITS OF Rx AND TX CHARS. 
CHCNTB - BASE OF NUMBER OF CHARS TO TX ON EACH LINE TABLE. 
RXCNTB - BASE OF THE RX CHARACTER COUNTERS TABLE. 

RXPTRB - BASE OF THE RX CHARACTER POINTERS TABLE. 

TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 


CARRY - SET IF EXTRA CHARACTER CONDITION IS VERIFIED. 
PC ,CHKEXT 


s* SUBORDINATE ROUTINES CALLED: NONE. 


$-- £6466244464464646666660006 


: SAVE 


SOSSOSOSEEDESEEEEEAEEEEOREDOEDDADOREDEREDEORREEREEEEDLLS 
R 


sSAVE CONTENTS OF GPRS RO THRU 
RS .PREGOS 


: sCALL REGISTER SAVE SUBRT, 
sGET THE RX DATA POINTER. 
s INCREMENT R4 By 2 TO POINT TO CHR1. 
sGET CHR1 FROM THE QUE, DATA.VALIO INTO N FLAG, 
sEXIT WITH “FAILURE” IF CHR1 NOT VALID. 
sREMOVE INACTIVE BITS FROM CHR1 VALUE. 
sGET EXPO FROM THE DATA PATTERN, 
sREMOVE INACTIVE BITS FROM EXPO VALUE. 
sCOMPARE CHR1 AND EXPO. 
sEXIT WITH “FAILURE” IF CHR1 <> EXPO, 
sCOMPARE THE PRESENT RX CHARACTER COUNT PLUS 1 
; oS He EXPECTED NUMBER OF wee. TO RX ON 


AND LOOPED ) 
s_ DETERMINE IF CHR1 IS LAST EXPECTED CHAR, 
sEXIT WITH “SUCCESS” IF CHR1 IS LAST CHAR, 
sGET CHR2 FROM THE QUE, DATA.VALID INTO N FLAG, 
fA WITH “SUCCESS” IF CHR1 WAS pe IN QUE, 


; It IS LIKELY THAT WE RECEIVED AN EXTRA CHARACTER WITHIN [HE DATA PATTERN, 
; INDICATE “SUCCESS” AND EXIT. 


OMU-11 FUNC TST PARTS 
St BROUT INE 


GLOBAL St 


26 

2853 016410 

2654 

2855 016412 
016412 

2856 016414 


000261 
000401 


000241 


004736 
000207 
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- CHKEXT - 


50$: SEC ;SET THE SUCCESS FLAG. 
BR 60$ sEXIT THE ROUTINE. 
3? 
s WE DIDN’T RECEIVE A SINGLE EXTRA CHARACTER AT THIS POINT IN THE DATA PATTERN. 
s INDICATE “FAILURE” AND EXIT. 
;* 
Sos: CLC ;CLEAR THE SUCCESS FLAG. 
60$: PASS ;sRESTORE GPRS. 
JSR PC, aC SP )+ RETURN TO PREGOS SUBRT. 


RTS PC ; CARRY - SET IF SUCCESS (EXTRA CHAR RXED). 


SEO 


14 


IK6 


-L1l Ff T PART4 MACRO M1200 15-MAR-84 09:48 PAGE 55 G 1s, 
COA! SUMRoOT Ine  CHKLOS | = 
26568 -SBTTL GLOBAL SUBROUTINE - CHKLOS - 
2859 7 COPOSSOSSSOLSEEEESESESEDESESESESESOROOSEDOEOEEEEEEDEDEREEEEEEEDDEEESESEEES 
2860 tf - FOR LOST CHARACTER TINE - 
2861 3 THIS SUBROUTINE CHECKS FOR THE CONDITION WHICH INDICATES THAT a CHAR 
2862 3¢ HAS BEEN “LOST” FROM THE LOOPED BACK DATA PATTERN DURING A TRANSMISSION 
2663 36 AND RECEPTION TEST. IF THIS ROUTINE DETERMINES THAT IT IS LIKEL?’ THAT 
2864 34 A CHARACTER HAS BEEN LOST, IT INDICATES THIS IN THE STATUS INF ORMAT ION 
=. cs RETURNED TO THE CALLING ROUTINE. 
3¢ 
2867 3@ INPUTS: RS - RX LINE NUMBER MULTIPLIED By 2 COFFSET INTO WORD TABLES). 
2868 Le R4 - BASE ADDRESS OF RESYNC QUE CONTAINING RX CHARS. 
2869 34 RS - MASK OF “INACTIVE” (NON-DATA) BITS OF Rx AND Tx CHARS WITH 
2870 34 ALL SET BITS IN A SINGLE, LEFT JUSTIFIED GROUP. 
2871 34 CHCNTB - BASE OF NUMBER OF CHARS TO TX ON EACH LINE TABLE. 
2872 34 RXCNTB - BASE OF THE RX CHARACTER COUNTERS TABLE. 
2873 fd RXPTRB - BASE OF THE RX CHARACTER POINTERS TABLE. 
de 34 TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
3% 
pth 3;# OUTPUTS: CARRY - SET IF LOST CHARACTER CONDITION IS VERIFIED. 
;* 
rth ;@ CALLING SEQUENCE: JSR PC ,CHKLOS 
34 
2880 3* COMMENTS: THE FOLLOWING SYMBOLS ARE USED IN LINE COMMENTS: 
2881 3 CHRO - CHARACTER AT BOTTOM OF RESYNC QUE (FIRST RECEIVED). 
28682 34 CHR1, CHRO - 2 CHARACTERS RECEIVED AFTER CHRO. 
2683 ;¢ EXPO - CHARACTER EXPECTED TO BE RECEIVED NEXT. 
anes 34 EXP1, EXP2 - CHARACTER EXPECTED TO BE RECEIVED AFTER EXPO, ETC. 
34 
2886 3* SUBORDINATE ROUTINES CALLED: NONE . 
2687 t-- nn SAREPEOSEEESEEREOESOESEDEEODEEREOEESDAEERESEADEREDEEDERDEREDELADEEROSLOS 
016416 CHKLOS:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
016416 004567 166702 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
2889 016422 016301 003542 MOV RXCNTB(R3),R1 sCOMPARE THE PRESENT Rx CHARACTER COUNT PLUS 1 
28690 016426 005201 INC Ri ; WITH THE EXPECTED NUMBER OF CHARS TO RX ON 
2891 016430 016300 005234 MOV TXRXLB(R3),RO ; LINE (NUMBER TXED AND LOOPED BACK) TO 
2892 016434 016002 003442 MOV CHCNTB(RO),R2 : OETERMINE IF THE POSSIBLE LOST CHAR 
2893 016440 020102 CMP R1,R2 ; WOULD BE THE LAST EXPECTED Rx CHAR. 
2894 016442 001423 BEG S2s sEXIT WITH "FAXLURE” IF LOST CHR WOULD BE LAST, 
2895 016444 005201 INC Ri sDETERMINE (AS ABOVE) IF CHRO WOULD BE THE LAST 
2896 016446 160201 SUB R2,R1 ; RX CHAR AND SAVE RESULT FOR LATER, 
2897 016450 016302 003402 MOV RXPTRB(RS),R2 sGET THE RX DATA POINTER. 
2898 016454 005202 INC Re sCALCULATE POINTER TO EXP1 LOCATION, 
2899 016456 112200 MOVE CR2)+,RO sGET EXP1 VALUE FROM DATA PATTERN, 
2900 0 162400 (R4)+,RO ;COMPARE CHRO XP1 VALUES. 
2901 016462 BIC RS ,RO sREMOVE INACTIVE BITS FROM RESULT. (NO ACTIVE 
2902 ; BITS ALLOWED TO LEFT OF ANY INACTIVE BITS. ) 
2903 016464 001012 BNE 523 sEXIT WITH “FAILURE” IF CHRO <> EXPi., 
2904 016466 005701 TST Ri sCHECK CHRO TEST RESULT SAVED ABOVE. 
2905 016470 001406 8EG 50% sEXIT WITH “SUCCESS” IF CHRO IS LAST CHAR, 
2906 016472 011401 MOV C(R4),Ri sGET CHR1 FROM THE QUE, DATA.VALID INTO N FLAG. 
2907 016474 100004 BPL. 508 sEXIT WITH “SUCCESS” IF CHRO WAS LAST QUE CHAR, 
2908 016476 111200 MOVs (R2),RO sGET THE EXP2 VALUE FROM THE SATA PATTERN, 
2909 016500 160001 SuB Rl 3C ARE THE EXP2 AND THE CHRI VAL 
2910 016502 040501 BIC RS,R1 sREMOVE INACTIVE BITS FROM RESULT OF ARE, 
291 s (NO ACTIVE BITS LEFT OF INACTIVE BITS.) 
2912 016504 001002 BNE 52% sEXIT WITH “FAILURE” IF CHRIL «> ExXP2, 
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2914 . 
2915 5 40 1S LIKELY Met LOST a CHARACTER FROM THE DATA PATTERN. 
So13 ; INDICATE ~SUCCESS“ AND EXIT. 
2918 016506 000261 50s: SEC ;SET THE SUCCESS FLAG. 
2919 016510 000401 BR 6C$ sEXIT THE ROUTINE 
5001 
3° 
2922 ¢ WE DIDN'T LOSE A SINGLE EXTRA CHARACTER AT THIS POINT IN THE DATA PATTERN. 
Soca ; INDICATE “FAILURE > AND EXIT. 
a | 
2925 016512 000241 52s: CLC sCLEAR THE SUCCESS FLAG. 
2927 016514 60: PASS ;RESTORE GPRS. 


016514 004736 JSR PC ,a(SP)> sRETURN TO PREGOS SUBRT. 
29286 016516 000207 RTS PC sCARRY - SET IF SUCCESS (Lost CHAR LIKELY). 


016520 
016520 


016524 
: 016532 


2 
2985 016552 


Beh! SiBhiol tne" 


004567 


036367 
001407 


012701 
011402 
040502 
052704 
000452 


016302 
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-SBTTL GLOBAL - CKCHR - 
se *OCPESESESESESESSSEOEESSSOSESSSOESEEEEEEEEDEEEEEEDEDEDEEEDEEEEESE&EEE‘S *e6¢ 
34 - CHECK CHARACTER FOR ERRORS ROUTINE - 
34 THIS SUBROUTINE CHECKS THE CHARACTER AT THE BOTTOM OF THE RESYNC VE 
:* TO DETERMINE IF IT IS CORRECT. POINTERS AND COUNTERS WHICH ARE RELATED 
36 TO THE RECEPTION OF THE ARE UPDATED IF THE CHARACTER IS 
34 INCORRECT, AN ANALYSIS OF THE ERROR S AND PARAMETERS ARE SET UP 
36 FOR THE REPORTING OF THE CORRECT ERROR. 
;* 
3@ INPUTS: R3 


166600 


002364 


011306 


100000 


003402 


163752 


- LINE OFFSET FOR ACCESS OF WORD TABLES OF LINE VARIABLES. 
- BASE ADDRESS 


34 R4 SS OF THE RESYNC QUEUE FOR THIS LINE. 

3* RS - MASK OF THE INACTIVES BITS IN A Tx OR RX CHAR BYTE. 

3¢ SITTBL - TABLE OF WORDS WITH BITS SET FOR USE IN FORMING MAPS. 
34 DPRS@ - DATA PATTERN RESYNC QUE WITH VALID CHAR AT BOTTOM. 

34 EXCNTB - BASE OF THE EXTRA CHARACTER COUTERS TABLE. 

34 RXDONF - RECEIVE DONE FLAGS. 

34 RXPTRB - BASE OF THE RX CHARACTER POINTERS TABLE. 

34 ERROR MESSAGE LABELS - EM9007 , EM9008 ,EM9027, EM9028 

;4 

3@ OUTPUTS: Ri - CONTAINS THE ADDRESS THE ERROR MESSAGE TO BE REPORTED. 
34 R2 - CONTAINS THE ACTUAL RECEIVED DATA. 

34 R4 - CONTAINS THE EXPECTED DATA. 

34 CARRY - “SUCCESS” FLAG (SET IF ERROR IS FOUND). 

34 FOLLOWING VARIABLES UPDATED FOR LINE ON WHICH CHAR WAS RECEIVED: 
3* CNT - COUNT OF R OF EXTRA CHARS RECEIVED ON LINE. 
34 RXCNT - COUNT OF THE NUMBER OF CHARACTERS RECEIVED ON LINE. 
pa RXPTR - UPDATED TO POINT TO THE NEXT EXPECTED CHAR ON LINE. 
34 ERRBLK - CONTENTS DESTROYED. 

;* 

3* CALLING SEQUENCE: JSR PC ,CKCHR 

3 * 

3* COMMENTS: 


am 
3# SUBORDINATE ROUTINES CALLED: CHKEXT .CHKLOS,UPDCHR. 
s-- a CABRSSAESEEEEEEEOEEESEOESESEDESEEESEAADEDADDDALEDDADEREAEDEADDDADDSEREEEES 
CKCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS , PREGOS sCALL REGISTER SAVE SUBRT. 


sd 
; CHECK FOR THE RX OF A CHAR AFTER RX SHOULD BE COMPLETE ON THIS LINE. 


BIT BITTBLCR3).RXDONF ;TEST THE RX DONE FLAG FOR THIS LINE. 
BEQ sti sSKIP ERROR REPORT IF RX NOT COMPLETE ON LINE, 
cm 
; ME HAVE RECEIVED AN EXTRA CHARACTER ON THIS LINE. 
; SET UP FOR ERROR REPORT AND EXIT TO REPORT THE ERROR. 
; COUNT THE EXTRA CHARACTER. 
s EXIT TO REPORT “UNEXPECTED CHAR RECEIVED AFTER RX COMPLETE ON LINE NN” 
es MOV —« @EM9007,R1 sSELECT "EXTRA CHAR ON LINE” ERROR MESSAGE. 
MOV (RA). R2 1GET THE ACTUAL DATA FOR ERROR REPORT 
BIC RS.R2 s REMOVE TIVE BITS. 
BIS  #BIT15,.R4 sINDICATE “NONE” EXPECTED DATA FOR ERROR RPT. 
BR 12$ sGO COUNT EXTRA CHAR AND EXIT WITH “FAILURE” 
; GET THE POINTER TO THE NEXT EXPECTED RECEIVE DATA CHARACTER, 
33: MOV —«aRXPTRBCR3).R2 
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016576 


016600 


2 016604 


016626 
016632 


012701 
111200 
040500. 
011402 
040502 
010004 
000424 


004767 
103012 


012701 
111200 
04 


010002 
010104 
012701 


N6 
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007720 


177512 


0i2121 


177564 


012201 


007640 


011371 


3* 
; COMPARE THE ACTUAL DATA WITH THE EXPECTED DATA. 
MOV CR4),RO 


CR2),R1 sGET THE EXPECTED DATA. 
BIC RS.R1 sREMOVE THE INACTIVE BITS. 
CMPB = RO, R1 sCOMPARE ACTUAL AND EXPECTED. 
BNE 4 CHECK FURTHER IF DATA MISCOMPARE 


8 
JSR PC ,UPDCHR 
BR 50$ 
s+ 


s ACTUAL AND EXPECTED DATA MISCOMPARE. 
; DETERMINE IF IT’S LIKELY WE RECEIVED AN EXTRA CHAR WITHIN THE DATA PATTERN. 


= 
4%: JSR PC ,CHKEXT sCHECK FOR EXTRA CHAR RX'ED IN PATTERN. 
BCC 6$ sGO CHECK FOR LOST CHAR IF NO EXTRA CHAR. 


3;* 
; IT IS LIKELY THAT WE RECEIVED AN EXTRA CHARACTER WITHIN THE DATA PATTERN. 
; COUNT THE CHAR AS AN EXTRA CHAR, DON’T COUNT AS A STANDARD CHAR, 

; REPORT “EXTRA CHAR RECEIVED WITHIN DATA PATTERN ON LINE NN” 

ae 


MOV #€M9027 ,R1 sSELECT “EXTRA CHAR ON LINE” ERROR MSG. 


MOVB (R2),RO sGET THE EXPECTED RECEIVE DATA. 

BIC RS,.RO sREMOVE THE INACTIVE BITS FROM EXPECTED DATA. 
MOV (R4),R2 sGET THE ACTUAL RECEIVE DATA. 

BIC RS .R2 sREMOVE THE INACTIVE BITS FROM ACTUAL DATA. 
MOV RO,R4 sPASS EXPECTED DATA TO ERROR REPORT ROUTINE. 
BR 12$ sGO COUNT EXTRA CHAR AND EXIT WITH “FAILURE”. 


3* 

; ACTUAL AND EXPECTED DATA MISCOMPARE. 

; NOT LIKELY THAT WE RECEIVED AN EXTRA CHARACTER WITHIN THE DATA PATTERN, 
; DETERMINE IF IT’S LIKELY WE LOST A CHARACTER FROM THE DATA PATTERN. 


6$: JSR PC, CHKLOS ;CHECK FOR A LOST CHAR CONDITION. 
Bcc 8s :GO REPORT BAD RX DATA IF NOT LOST CHAR. 
; IT IS LIKELY THAT WE LOST A CHARACTER FROM THE DATA PATTERN. 
s COUNT THE CHAR IN THE RX CHAR COUNT AS IF IT HAD BEEN RECEIVED. 
; ALSO, COUNT AS A VALIO CHAR, BECAUSE WE HAVE VERIFIED IT ABOVE. 
3 
Bg 


3 * 


so, CHRO : 
REPORT “SINGLE CHAR MISSING FROM RECEIVED DATA ON LINE NN” 


MOV 0EM9028 ,R1 sSELECT “LOST CHAR ON LINE” ERROR MSG, rttrr 
MOVB sGET THE EXPECTED RECEIVE DATA. 

BIC RS,RO sREMOVE THE INACTIVE BITS FROM EXPECTED DATA. 
MOV sGET THE ACTUAL RECEIVE DATA. 

BIC RS ,Re sREMOVE THE INACTIVE BITS FROM ACTUAL DATA. 
MOV RO,R4 sPASS EXPECTED DATA TO ERROR REPORT ROUTINE. 
JSR PC, UPDCHR sUPDATE PTRS AND COUNTERS FOR THE CHAR. 

BR 10% sGO EXIT WITH “FAILURE”, 


3 * 
; DID NOT LOSE OR GAIN A SINGLE CHARACTER FROM/TO THE DATA PATTERN, 
REPORT “RECEIVED CHAR MISCOMPARE AGAINST TX DATA ON LINE NN” 


* 

| ie 

8$: MOV sPASS ACTUAL DATUM TO ERROR REPORT ROUTINE. 
sPASS EXPECTED DATUM TO ERROR REPORT ROUTINE. 

sSELECT THE “DATA MISCOMPARE” MESSAGE. 


Pa 
s Ee 
3? 


SOgSESES TEE CRETE 
; 


3 


F535% 


016714 
016716 


es 


004767 
000405 


B ( 
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007622 


003242 
003242 


000012 


' a 
s UPDATE THE CHARACTER COUNTER AND RX DATA PATTERN POINTER FOR THIS LINE. 


3 - 
10$: JSR PC ..UPDCHR 
BR 14% 


sUPDATE RX PTR AND COUNTER FOR THIS LINE. 
sGO EXIT WITH “FAILURE”. 


t 
s COUNT THE CHARACTER AS AN EXTRA CHARACTER, 


3 - 
12s: INC EXCNTB(RS) 
BNE 14% 
DEC EXCNTB(RS) 


3° 
s INDICATE “FAILURE” AND EXIT. 


g- 
14%: CLC 
BR 60$ 


3 * 


s NO ERROR WAS FOUND. 

s SET “SUCCESS” FLAG AND EXIT. 

g- 

50%: SEC 

60%: PASS R1,R2,R4 
MOV 
MOV 
MOV 
JSR 

RTS PC 


sINCREMENT THE EXTRA CHAR COUNT FOR THIS LINE. 
sEXIT WITH FAILURE IF NO OVERFLOW. 
sDECREMENT BACK TO -1 (MAX VALUE) IF OVERFLOW. 


sCLEAR THE “SUCCESS” FLAG. 
sEXIT THE ROUTINE. 


sSET THE “SUCCESS” FLAG. 
sRESTORE GPRS, EXCEPT 


R1,RiSLOTCSP) sPUT R1 IN STACK SLOT. 
Re, R2SLOT( SP) sPUT R2 IN STACK SLOT. 
R4 ,R4SLOT( SP) sPUT R&@ IN STACK SLOT. 
PC .a( SP)» sRETURN TO PREGOS SUBRT, 


sR1 - CONTAINS THE ADORESS OF THE ERROR REPORT. 


SEG 


ye 


, 


Br bek! SHihodt ink * 


P= pe pe 5 po ps pe pe 
CSeonaervbwhr 


Sues 


25 
126 


017034 
017034 


004567 
016704 
004767 


016701 
7 


012701 
012767 


104460 


fj 
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163462 
166274 


012001 
014032 166266 


1635206 


-SBTTL GLOBAL SUBROUTINE CKFRPR - 


3° COOPESOROOESSSSODOSSEROEESEDEODOOSADEDEENEEODEDEDEDEEEEEED ED EEDEEDESSSCEECS 


aa - CHECK FRAMING AND PARITY ERROR REPORTING 
a THIS SUBROUTINE IS USED IN THE FRAMING ERROR AND PARITY ERROR TESTS. 
36 IT READS THE CHARACTERS FROM THE DUT RECEIVER CHARACTER FIFO 

30 AND CHECKS FOR THE CORRECT COMBINATION OF PARITY AND FRAM 

36 ERROR BITS IN THE MSS. IF CHARACTERS STOP APPEARING IN THE FIFO wITy 
ae DATA. VALID SET OR IF MORE ALL E R OF CHARACTERS 

- READ FROM THE OUT THIS ROUTINE EXITS WITH AN RX COMPLETE 

36 INDICATION. EACH READ CHAR IS ANALYSED AND ANY NECESSARY ERRORS ARE 
3* e 

34 

;@ INPUTS: RS_- TEST FLAG, BITIS SET = FRAMING ERR, CLEAR = PARITY ERR. 
“i ERRNBR - SET TO ERROR NUMBER OF FIRST ERROR IN THIS ROUTING. 
36 OSTEND - ADDRESS OF THE END OF THE OUTPUT STORAGE FIFO BUFFER. 
= OSTPTR - POINTER TO THE NEXT BYTE TO READ FROM OSTORE. 

® 

S@ OUTPUTS: RXCNTB - RECEIVE CHARATER COUNT UPDATED FOR EACH LINE. 

a RXPNTB - RECEIVE CHARACTER PIONTER IS UPDATED FOR EACH LINE. 
32 

:@ CALLING SEQUENCE: JSR PC. CKFRPR 

3* 

s@ COMMENTS: = THIS ROUTINE REPORTS ERRORS WITH NUMBERS INITIAL ERRNBR 

- THRU INITIAL ERRNBR . 4. 

5 a ERRNBR IS RESTORED BEFORE THIS ROUTINE RETURNS. 

34 

s@ SUBORDINATE ROUTINES CALLED: PRFRME,PRPARE ,WAIBIS. 

g-- POOLED OODOSODEEOEDEOSEEESODEOEDEROEEESEREEEEOREDEREEEEEEEOEEEEEEEEOSEESOES 


CKFRPR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

J »PREGOS sCALL REGISTER SAVE SUBRT. 
MOV ERRNBR ,R4 sPPESERVE THE INITIAL ERROR NUMBER. 

JSR PC, TXIEi sENABLE TX INTERRUPTS. 


3° 

s WAIT FOR A CHARACTER TC APPEAR IN THE FIFO. 

s IF NO CHARACTER APPEARS WITHIN TIME -OuT PERIOD: EXIT ROUTINE, WE'RE DONE. 
a 


MOV RXTOUT,R1 sGET MINIMUM TIME OUT VALUE. 
2s; CMP TXDONF .ACTLNS  ;CHECK FOR TRANSMISSION DONE ON ACTIVE LINES. 
BEQ 4% sSKIP ADDING SO MS DELAY IF TX DONE ALL LINES. 
ADD #50. ,R1 ADD SO MILLI SEC TO DELAY IF NOT LAST CHAR. 
4%; BIS 170000 ,F1 sINDICATE TO TEST DATA. VALID BIT. 
MOV RBUFA,R2 sINDICATE TO CHECK DUT RECEIVE BUFFER (FIFO). 
JSR PC ,WAIBIS sWATT FOR RECEIVED CHAR OR T -OUT, 
Bcc 60% sEXIT ROUTINE IF TIME-OUT, WE'RE ° 
DEC CHRTOT sDECREMENT THE TOTAL CHAR COUNTER, 
@NE 6% | sSKIP ERROR IF NOT TOO MANY CHARS RECEIVED. 
MOV R4, ERRNBR sSET ERROR NUMBER TO INITI4L ERRNBR. 
MOV #EM9025 ,R1 sSELECY THE ERROR MESSAGE TO BE REPORTED, 
MOV @EROSOS,ERRBLK ;SELECT THE ERROR REPORT KOLITINE. 


REPORT ERROR AT INITIAL ERRNBR. 
"MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED” 


ERROR 3 >>>>2> ERROR ccccc, 
TRAP 


CSsERRUR 


se 


Cred EMBBod? ink“? 


S127 
5128 


3152 


Ut U8 8 EU Ws GC 
ou 


017056 


017064 
017070 
017074 
017076 


012767 
0004 35 
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000001 


177760 


003162 
1631350 
000100 


003242 
163104 
000100 
007360 


166152 


163160 


163056 


163032 


sINDICATE THAT AN ERROR HAS SEEN FOUND. 
sEXIT THIS ROUTINE WE HAVE GIVEN UP. 


MOV 
BR 


#1,F ERROR 
60% 
+ 


s EXTRACT THE LINE NUMBER OF THE NEW CHARACTER. 
s CALCULATE OFFSET FOR ACCESSING TABLES OF LINE VARIABLES. 


3 = 
6$: MOV R2,R3 COPY THE READ CHARACTER. 
SWAB RS sGET THE LINE NUMBER IN THE LSB. 
BIC #177760,R3 s;CLEAR THE UNWANTED BITS. 
ASL R3 sSHIFT LEFT TO FORM OFFSET INTO TABLES. 
3? 
: PROCESS THE READ CHARACTERS AS DICTATED BY THE TEST FLAG, 
$- 
MOV RS.RS sDETERMIN WHICH TEST CALLED THIS ROUTINE . 
BPL 8$ sBRANCH TO PROCESS CHARACTER IN PARITY TEST, 
JSR PC , PRF RME sPROCESS FRAMING ERRORS RECEIVED. 
TST FERROR sHAS AN ERROR BEEN DETECTED ? 
BEG 10$ es SKIP PROCESSING CHARACTERS FOR PARITY 
3 o 
BIT @BITO6,OPTION  ;HAS EXTENDED ERROR REPORTING BEEN ENABLED 
BNE 10$ ;BRANCH IF IT HAS, 
BR 60% sOTHERWISE EXIT, 
6$: SR PC ,PRPARE sPROCESS PARITY ERRORS RECEIVED. 
TST FERROR sHAS AN ERROR BEEN DETECTED ? 
Q 10$ 3NO, THEN BRANCH TO UPDATE POINTERS. 
BIT @BITOG,OPTION  ;HAS EXTENDED ERROR REPORTING MEEN ENABLED ? 
Q 608% sEXIT IF IT HASN'T. 
108; JSR PC ,UPDCHR sUPDATE POINTERS AND COUNTERS FOR THIS LINE, 
BR 2s sLOOP TO READ NEXT CHAR FROM FIFO. 
603%: MOV R4 ,ERRNBR sRESTORE THE ERROR NUMBER TO LTS INITIAL VALVE. 
PASS sRESTORE GPRS, 
eee pe JSR PC.a( SP)» sRETURN TO PREGOS SUBRT, 


Bitek! StBholt ine **" 
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166150 


177760 


005234 
002364 162766 


-SBTTL GLOBAL SUBROUTINE - CKINAC - 
s¢e OOPPOSROSESSESESEASOSEOEOOEEEOEEDOOEEOEEEDEDEDEREDDERELEDEEEEEEEEEESESCEEESS 
:¢ - CHECK FOR NEW CHARACTER ON INACTIVE LINE ROUTINE .- 
34 THIS SUBROUTINE CHECKS A CHARACTER TO DETERMINE If THE CHARACTER 
36 WAS RECEIVED ON AN ACTIVE LINE. IF THE CHARACTER WAS RECEIVED ON 
34 AN INACTIVE LINE THIS ROUTINE RECORDS THE FACT THAT THE CHARACTER 
:* WAS RECEIVED ON AN INACTIVE LINE, PREPARES AN ERROR MESSAGE FOR 
34 THE CALLING ROUTINE, AND RETURNS A “FAILURE” STATUS. 
34 
s@ INPUTS: Re _- THE RX CHARACTER INCLUDING ERROR FLAGS AND LINE NUMBER, 
34 ACTLNS - BIT MAP OF ACTIVE DUT LINES. 
34 BITT6L - TABLE OF WORDS WITH BITS SET FOR FORMING BIT MAPS, 
34 EM9006 - LABEL AT “RX ON INACTIVE LINE” ERROR ME SGE. 
34 EXCNTB - BASE OF THE EXTRA CHARACTER COUTERS TABLE, 
36 TARXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 
3% 
3# OUTPUTS: CARRY - “SUCCESS” FLAG (SET IF NO ERROR FOUND). 
34 Ri - IF ERROR FOUND, ADDRESS OF ERROR MESSAGE. 
36 RS - LINE NUMBER OFFSET OF PASSED IN CHARACTER. 
14 R4 - IF ERROR FOUND, EXPECTED DATA INDICATION FOR ERROR RPT. 
34 EXCNT - EXTRA CHARACTER COUNT FOR LINE (UPDATED IF ERROR ), 
3* 
s* CALLING SEQUENCE: JSR PC,.CKINAC 
34 
3* COMMENTS: 
3¢ 
s* SUBORDINATE ROUTINES CALLED: NONE. 
$-- SAASEASOREOEEEEASODEESAESORSEADESEEEEDEDADEREOEDEDEDEEEDREREEDADEDELERASOES 
CKINAC:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS, 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


© 
; EXTRACT THE LINE NUMBER FROM THE PASSED IN CHARACTER AND USE THE LINE 
s NUMBER TO FORM AN OFFSET FOR ACCESSING TABLES OF LINE VARIABLES. 

37 


MOV —s—R2.RB sEXTRACT THE LINE NUMBER 

SWAB ORS ; FROM THE CHARACTER We 

BIC 177760.R3 ; ARE COMPARING. 

ASL RS sFORM OFFSET INTO WORD TABLE FROM LINE NUMBER. 
; IF THE CHARACTER IN QUESTION IS NOT A VALID CHARACTER, EXIT WITH “SUCCESS”. 
df 1ST —R2 ;CHECK DATA. VALID BIT. 

BPL 50s sEXIT WITH SUCCESS IF CHAR IS NOT VALID. 


: IF THE TX LINE WHICH IS ASSOCIATED WITH THIS RX LINE IS AN ACTIVE LINE, 
s EXIT THE ROUTINE WITH “SUCCESS”, 


a MOV TXRXLBCR3),R1 GET THE TX LINE ® OFFSET FOR THIS Rx LINE, 
BIT BITTBL(R1),ACTLNS ;DETERMINE IF TX LINE IS AN ACTIVE LINE, 
BNE 50$ sEXIT ROUTINE WITH SUCCESS IF LINE IS ACTIVE. 
3* 


s THE CHARACTER IN QUESTION WAS RECEIVED ON AN INACTIVE LINE, 
; COUNT THIS CHARACTER AS AN EXTRA CHAR, 

: SET UP ERROR INFORMATION. 

; EXIT ROUTINE WITH “FAILURE” INDICATION. 

a 


F/ 
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5222 01/206 005263 003242 INC EXCNTB(R3) sINCREMENT THE EXTRA CHAR COUNT FOR THIS LINE. 
3223 017212 001002 BNE 2s sSKIP SETTING TO MAX VALUE IF NO OVERFLOW. 
5224 017214 005363 003242 DEC EXCNTB(R3) sDECREMENT BACK TO -1 (MAX VALUE) IF OVERFLOW. 
5225 017220 012701 011233 2s: MOV @EM9006 .R1 sSET UP RX ON INACTIVE LINE MESS 
3226 017224 012704 100000 MOV ®BIT15.R4 sSET UP _ “NONE” EXPECTED DATA INDICATION. 
5227 017230 000241 cLC sCLEAR THE “SUCCESS” FLAG. 
oeae 017232 000401 BR 60$ :GO REPORT RX CHAR ON INACTIVE LINE. 
3230 3° 
3231 s WE HAVE NOT FOUND A “CHAR ON INACTIVE LINE” omni SITUATION. 
Pty ; SET THE “SUCCESS” FLAG AND EXIT THE ROUTINE 
eane 017234 000261 508: SEC 3SET THE “SUCCESS” FLAG. 
5236 017236 60$: PASS R1,23,R4 sRESTORE GPRS, EXCEPT OUTPUT GPRS. 

017236 010166 000004 MOV R1,RISLOTC(SP) sPUT R1 IN STACK SLOT. 

017242 010366 000010 MOV R3,R3SLOT(SP) sPUT R3 IN STACK SLOT. 

017246 C10466 000012 MOV R4 ,R4SLOT(SP) sPUT R4 IN STACK SLOT. 

004736 JSR PC,@(SP)-. sRETURN TO PREGOS SUBRT. 


017252 
5237 017254 000207 RTS PC ;CARRY - SUCCESS FLAG (SET IF NO ERROR), 


G/ 
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3239 -SBTTL GLOBAL SUBROUTINE - CKTRAP - 
3240 nO O OOOO OOOO OOO OEOSSOSSSREEEEEDEOEDEEEDEEEDEDESEREDLEEEEEEEEEDEDEEEEEOEECCS 
35241 34 CHECK TRAP ROUTINE - 
3242 34 THIS SUBROUTINE IS USED TO CHECK FOR A BUS TIME-OUT TRAP (004 TRAP) 
3243 34 WHICH IS CAUSED BY AN ACCESS TO A NON-EXISTENT MEMORY OR I/0 LOCATION. 
ee 34 iF THE TRAP DOES NOT OCCUR, THIS ROUTINE RETURNS A SUCCESS INDICATION. 
34 
5246 3* INPUTS: RO - SOURCE ADDRESS FOR MOVE. 
3247 34 Rl - DESTINATION ADDRESS FOR MOVE. 
reed 3* (RO) - SOURCE FOR THE MOVE. 
37 
5250 3# OUTPUTS: (R1) - WRITTEN TO THE CONTENTS oF CRO). 
35251 34 CARRY FLAG - SET ON RETURN IF NO 004 TRAP DETECTED. 
aene 34 TP4FLG - NONZERO IF TRAP OCCURRED, CLEARED OTHERWISE. 
3 
eens 3# CALLING SEQUENCE: JSR PC, .CKTRAP 
3% 
5256 3* COMMENTS: IF THIS SUBROUTINE CAUSES A TRAP, EITHER THE ADDRESS wHICH 
aH 34 IS LABELED ADRPTR WILL BE THE TRAP PC ADDRESS ON THE STACK. 
3% 
5259 3# SUBORDINATE ROUTINES CALLED: NONE. 
eset b COSBESBEDEESEDESEESEDEOEESESEEOASERADEADEDEDHDADEDADERERDDDADERERDEDEEEEEDECS 
5262 017256 CKTRAP:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
017256 004567 166042 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
5263 017262 005067 162766 CLR TP4FLG ;CLEAR THE 004 TRAP FLAGS. 
5264 017266 011011 MOV CRO),CR1) sPERFORM THE MOVE IN QUESTION. 
5265 017270 005767 162760 ADRPTR:: TST TP4FLG sCHECK FOR OCCURENCE OF TRAP. 
5266 017274 000261 SEC sINDICATE SUCCESS. 
3267 017276 001401 BEQ 60$ sEXIT WITH SUCCESS IF TRAP DID NOT OCCUR, 
3266 017300 000241 CLC s INDICATE FAILURE, 
5269 017302 605: PASS sRESTORE GPRS. 
0 004736 JSR PC.a(SP). sRETURN TO PREGOS SUBRT. 


17302 
5270 017304 000207 RTS PC 


H/ 
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GOBAL §S 
527 -SBTTL GOBAL SUBROUTINE - CKTRPB - 
3273 5 OOCOLSESEDELESEOODOEEAEEESESSESEEDEDDEEEEEEDDEDEDEEEREDEDEEEEEDDAEEEEAEEEOOOORS 
3274 :* - CHECK FOR TRAP - 
5275 3* THIS SUBROUTINE IS USED TO CHECK FOR A BUS TIME-OUT TRAP (004 TRAP) 
3276 :f WHICH IS CAUSED BY AN ACCESS TO A NON-EXISTENT MEMORY OR I/0 LOCATION 
a 34 If A TRAP DOES NOT OCCUR, THIS ROUTINE RETURNS A SUCCESS INDICATION, 
34 
5279 3° INPUTS: RO - SOURCE ADDRESS FOR MOVE 
3260 ;4 Rl - DESTINATION ADDRESS FOR MOVE 
sees s* CRO) - SOURCE FOR THE MOVE 
3* 
5283 34 OUTPUTS: (R1) - WRITEN TO THE CONTENTS OF (RO) 
5284 34 CARRY FLAG - SET ON RETURN IF NO 004 TRAP DETECTED 
sees :4 TP4FLG - NONZERO IF TRAP OCCURED, CLEARED OTHERWISE. 
34 
aoe ;* CALLING SEQUENCE : JSR PC,.CKTRPB 
34 
5289 3* COMMENTS : If THIS SUBROUTINE CAUSES A TRAP, EITHER THE AUDRESS 
5290 ;* WHICH IS LABELED TRPAD2 WILL BE THE TRAP PC ADDRESS ON 
5291 ;* THE STACK OR SOME OTHER ADDRESS WHICH WAS PLACED ON 
3292 34 THE STACK BY AN UNEXPECTED TRAP. 
anes 34 THIS ROUTINE PERFORMS A BYTE MOV . 
34 
3295 ;* SUBORDINATE ROUTINES CALLED: NONE . 
asoe 8 SOOPREREREDFSEDEEEEDESEEOEEESEROSEEAEEEEALAERRDEEEARDEREEDEDEDHEREDDDRDLEEEC‘S 
5298 017306 CKTRPB: : SAVE 
017306 004567 166012 JSR RS .PREGOS sCALL REGISTER SAVE SUBRT. 
5500 0173512 005067 162736 CLR TP4FLG sCLEAR THE 004 TRAP FLAGS 
5501 017516 111011 MOVB (RO),(R1) sPERFORM THE BYTE MOVE 
53502 017320 005767 162730 TRPAD2:: TST TP4FLG sCHECK FOR OCCURENCE OF TRAP 
5503 017324 000261 SEC sINDICATE SUCCESS 
5504 017326 001401 BEQ 60$ sEXIT WITH SUCCESS IF TRAP DID NOT OCCUR 
5505 017330 000241 CLC s INDICATE FAILURE 
3306 017332 60%; PASS 3 
017332 004736 JSR PC,aC SP)» sRETURN TO PREGOS SUBRT. 


5307 017334 000207 RTS PC RETURN 


hm 
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-SBTTL GLOBAL SUBROUTINE - CLNRST - 
3310 5 OOOOODDODDODEDOSDOOOSSSOOOSSOOEOSSOSSEREEEEEEDEDEEDEDEECEOELDEEEEEELESCEORECE 
3314 34 - CLEAN RESET OF THE DEVICE UNDER TEST - 
S312 3¢ THIS SUBROUTINE IS USED TO RESET THE DUT TO A KNOWN STATE. 
S345 36 THE OUT’S SELF-TEST IS SKIPPED. AND THE FIFO Is PURGED OF ANY ERROR 
3314 3° CODES. ETC. 
3315 ;¢ If THE RESET DOES NOT SUCCESFULLY COMPLETE, THEN THE CARRY BIT Is 
apie :¢ PASSED BACK TO THE CALLING ROUTINE (CLEAR). 
” 34 
3318 ;@ INPUTS: CSRA - CONTAINS THE ADDRESS OF THE CSR 
3319 ;6 TXBFCA - CONTAINS ADDRESS OF DUT OMA BUFFER COUNT REGISTER, 
3320 ;* ERRNBR - ERROR NUMBER FOR PCSSISLE ERROR REPORT. 
$321 36 ERRTBL- ERRTYP,ERNBR,AND ERRMSG SET UP CORRECTLY. 
34 
3323 3# OUTPUTS: THE OUT PERFORMS ITS RESET FUNCTION INTO A KNOWN STATE. 
3224 36 CARRY - CLEAR INDICATES THE TEST IS TO BE ABORTED. 
5325 36 ERRBLK - VALUE MAY BE DESTROYED. 
3326 ;4 TESTAT - TX AND RX INTERRUPT FLAGS ARE CLEARED. 
$527 34 TX AND RX INTERRUPT ENABLE BITS IN THE DUT'S CSR ARE CLEARED. 
;* 
Hy 94 3@ CALLING SEQUENCE: JSR PC, CLNRST 
;¢ 
5331 3@ COMMENTS: THIS SUBROUTINE CAN REPORT ERRORS WITH NUMBERS ERRNBR. 
oace ;6 THIS ROUTINE DOES NOT DESTROY THE VALUE OF ERRNBR. 
* 34 
3334 :@ SUBORDINATE ROUTINES CALLED: DELAY .MSLGET,PUFIFO,RESETT. 
Ht + s OUPSOROREDESSESESEESOESESSOSESSSAEESOEEEOEEALEDOREREEEREDEEEEEDEEEEREEOREEEEES 
3337 017336 CLNRST:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
sate 017336 004567 165762 JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
3° 
3339 s RESET THE DUT. 
seat s THIS ROUTINE REPORTS ERRORS WITH NUMBERS FROM ERRNER THRU ERRNBR:2. 
| ie 
5342 017342 004767 004510 JSR PC,RESETT sRESET THE DUT TO A KNOWN STATE. 
3348 017346 103002 BCC 60% sEXIT ROUTINE WITH ABORT TEST INDICATOR. 
3* 
Hot s PURGE THE FIFO OF ERROR CODES, SAVE ANY BMP CODES FOUND, 
i 
tof 017350 004767 003274 JSR PC,PUFIFO sPURGE THE FIFO. 
5349 017354 60%; sEXIT THE TEST USING RESETT OR PUFIFO STATUS. 
3350 017354 PASS sRESTORE GPRS, PASS THE FOLLOWING INTACT: 
017354 004736 JSR PC, @(SP)> sRETURN TO PREGOS SUBRT. 


T 
$351 sCARRY BIT: IF CLEAR, THEN ABORT THE TEST, 
3352 017356 000207 RTS PC 
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-SBTTL GLCBAL SUBROUTINE - CLR1ié6éw - 


s¢e Oe eee TEAR SIRTERD memes ee eeecasenccscecescescasescocenes 


“es - CLEAR SIXTEEN WORDS ROUTINE 
: THIS SUBROUTINE CLEARS 16 WORDS STARTING WITH THE SPECIFIED WORD. 

‘s INPUTS: RO - ADDRESS OF THE FIRST WORD TO CLEAR. 

:* OUTPUTS: (RO) TO (RO+15) - 16 WORDS OF MEMORY ARE CLEARED TO 0. 

:* CALLING SEQUENCE: § JSR PC.CLR16W 

S¢ COMMENTS: 

34 

3 SUBORDINATE ROUTINES CALLED: NONE. 

$-- CAPOSSOOROOESOEDEDEESSOESEEEEEOESEESEEAREEEEEDEEEOEOEREOEEEEEEEESEESEeeEre 


CLR16W:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS, 
JSR R5, PREGOS 
MOV #16. ,R1 


:CALL REGISTER SAVE SUBRT, 
:SET THE : ~OOP COUNTER “die i6. 
MEMOR 1 


2s: CLR C(RO)- s;CLEAR A WORD OF 
DEC R1 :COUNT THIS LOOP. 
BNE 2$ ;LOOP IF NOT - WORD CLEARED. 
60%: PASS sRESTORE GPRS 
sive rm JSR PC.a( SP). sRETURN TO PREGOS SUR’. 


s 
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5378 -SBTTL GLOBAL SUBROUTINE - CONMAP . 
3379 te COOOOOODSOSSOSSESSESOSEOSEOOSESDESEEEEDEDECEEEDEEEEEEDELEDOEEEEESECEECECLS 
3360 s¢ - CONVERT LINE BIT MAP. 
3381 3 THIS SUBROUITNE IS USED TO CONVERT A BIT MAP PASSED TO IT . INTO 
5382 34 ANOTHER LINE BIT MAP THAT IS BASED UPON THE ASSOCIATED Tx/Rx LINE 
594} 3* NUMBER/OFFSET TABLE. 
;* 
5385 3¢ INPUTS: RS - CONTAINS THE LINE BIT MAP TO BE TRANSFORMED . 
sees 34 TXRXLB - BASE ADDRESS OF ASSOCIATED Ix/Rrx LINE NUMBER TABLE. 
3¢ 
saoe 3# OUTPUTS: RS - CONTAINS AN ASSOSCIATED LINE BIT MAP . 
3* 
Hd 3# CALLING SEQUENCE: JSR PC , CONMAP 
34 
5392 :* COMMENTS: THE TX/RX ASSOCIATION TABLE MUST BE INITIALISED BEFORE THIS 
4 +44 34 ROUTINE IS CALLED. 
3% 
5395 3* SUBORDINATE ROUTINES CALLED: NONE. 
3396 $-- SASPRPRERESSEAELEESEDESEEEEDERESORSEEEREEREEEEEDSEREDDREEEEEREDEEEEEEEODECS 
3397 
5398 017402 CONMAP : : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

017402 004567 165716 wor RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
5399 017406 012702 0052364 MOV @TXRXLB,R2 sGET THE BASE ADDRESS OF THE LINE ASSOC TABLE. 
5400 017412 010503 MOV RS,R3 ;COPY THE BIT MAP TO BE TRANSFORMED. 

5401 017414 012704 000020 MOV @NUMLNS .R4 3SET MAX LINE COUNTER. 

5402 017420 005005 CLR R5 s;CLEAR ASSOCIATED LINE BIT MAP. 

5403 017422 006203 2s; ASR R3 sSHIFT ACTLNS BIT MAP INT BOOLEAN REGISTER. 
5404 017424 103005 BCC sSKIP SETTING ASSOCIATED LINE NUMBER BIT MAP 
5405 017426 011201 CR2),R1 sGET ASSOCIATED LINE NUMBER OFFSET FROM TABLE 
3406 017430 006201 ASR :SHIFT RIGHT TO GET LINE NUMB FROM OF FSET 
5407 017432 004767 001250 JSR PC,LINBIT sGENERATE AN SINGLE BIT MAP FOR THIS LINE, 
5408 017436 050005 61S RO,RS sSET BIT FOR THIS LINE IN ASSOCIATED BIT MAP . 
5409 017440 005722 4%: TST CR2)>+ s INCREMENT ADDRESS FOR THE NEXT LINE NUMBER , 
3410 017442 DEC sDECREMENT LINE COUNT. 

5411 017444 001366 BNE 2s sLOOP IF NOT . 

5412 017446 60%; PASS R5 sRESTORE GPRS, EXCEPT 

017446 010566 000014 MOV RS,.RSSLOT(SP) sPUT RS IN STACK SLOT, 

017452 004736 JSR PC ,a(SP)- sRETURN TO PREGOS SUBRT, 
54153 sRS - CONTAINS THE ASSOCIATED LINE BIT MAP, 
5414 017454 000207 RTS PC 


{ / 
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CcOeA! Stout ine 


5416 -SBTTL GLOBAL SUBROUTINE - DELAY - 
3417 5 OOOOOOODDOESOSSESSOSSSESOOESEEEEEOSOESEEEDEEEDESOREDEEDEEEEEEDDDEEEEESESESOCECE 
5416 3* - DELAY SUBROUTINE - 
44 3* THIS SUBROUTINE IS USED TO DELAY A VARIABLE NUMBER OF MILLI -SECONDS. 
3° 
3421 3@ INPUTS: R4 - CONTAINS THE NUMBER OF MS TO DELAY. 
22 34 MSLCNT. 
5423 3¢ 
5424 :*# OUTPUTS: NONE . 
5425 34 
sag? s* CALLING SEQUENCE: JSR PC DELAY 
34 
3428 3@ COMMENTS: If NO HARDWARE CLOCK INTERRUPTS ARE OCCURING, CONTROL-CS WILL 
HH 3* NOT BE HONORED FOR THE DURATION OF THE DELAY, 
34 
5451 3* SUBORDINATE ROUTINES CALLED: NONE. 
saat s OOPOSODSOSESSSEEESESESSESEESEESEEEDEDESEEEEDEDEEADDDDDDEDEREEEEEDREDLESESEEEE‘S 
5 
5434 017456 DELAY:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

017456 004567 165642 JSR ° ;CALL REGISTER SAVE SUBRT. 
5435 017462 010401 MOV R4,R1 sPASS NUMBER OF MS DELAY AS TIME -OUT VALUE 
5436 017464 012702 177777 MOV @-1,R2 TELL MSLOOP ROUTINE TO CHECK ALL BITS 
5437 017470 5 CLR R3 ;TELL MSLOOP RTN TO CHECK FOR ALL BITS CLEAR 
5438 017472 012704 017514 MOV 0623 ,R4 ;TELL MSLOOP TO CHECK DUMMY NON-ZE dD. 
5439 017476 767 001506 JSR PC ,MSLOOP sDELAY THE REQUESTED @ OF MS 
35440 017502 103002 BCC 60$ sEXIT ROUTINE IF WE TIMED- , 

5441 017504 004767 002314 JSR PC,OOPS s;IF NO TIME-OUT, BAD PROGRAM OR HOST MACHINE, 
53442 017510 60%: PASS sRESTORE GPRS. 

017510 004736 JSR PC ,a( SP). sRETURN TO PREGOS SUBRT. 
aeas 017512 000207 RTS PC 
5445 017514 177777 62%: - WORD -1 sOUMMY. NON-ZERO WORD. 


M/ 
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3447 -SBTTL GLOBAL SUBROUTINE DM1I6B - 
5444 zee *eeeneesanessensseeeeneneesanesaneeeanesacssscaessaneccnsessesssensscees 
5449 34 CONVERT '0 A 16 my an Te. ADDRESS 
3450 34 THIS ROUTINE CONVERTS FROM P FORM TO A 16-BIT ‘PHYSICAL ADDRESS, 
et 3* OF ALTERNATE :°S AND O'S. 
& 
Peery vn INPUTS: OMTSTA: - CONTAINS THE ADDRESS IN PAR FORM 
3* 
aehe 34 OUTPUTS: RO - CONTAINS THE 16 BIT PHYSICAL ADDRESS 
athe ve CALLING SEQUENCE : JSR PC .OM16B 
3* 
5459 34 COMMENTS: USED IN THE DMA ADDRESS TEST 
3460 2 
3461 = SUBROUTINES CALLED: 
aeal s-- aah T LTT TTT TTT TTT TTT TTT TT TTT TTT TTT Treen 
5464 017516 DOM16B:: SAVE 
017516 004567 165602 JSR R5 , PREGOS s;CALL REGISTER SAVE SUBRT. 
5465 017522 016700 162474 MOV DOMTSTA,RO ; SHIF T THE DMA TEST ADDRESS 
5466 017526 012702 000006 MOV 6 ,R2 ;SIX PLACES LEFT , TO 
5467 017532 006300 2s: ASL RO sCONVERT IT INTO A , 
5466 017534 005302 DEC R2 :16-BIT PHYSICAL ADDRESS 
aH 017536 001375 BNE 2s ; 
3471 017540 012701 000052 MOV 952 ,R1 ;SET UP THE 6 LSB’'S 
5472 017544 032700 000100 BIT #100,R0 sIF BIT 06 OF THE PHYSICAL 
54735 017550 001402 BEQ 43 sADORESS IS CLEAR THEN BRANCH 
ope 017552 012701 000025 MOV 625,,R1 OTHERWISE CORRECT THE LSB'S 
a8 017556 060100 4$: ADD R1,RO sMREGE THE LSB'S WITH THE PHY ADOR 
5478 017560 PASS RO sRETURN WITH THE PHY ADDR. 
017560 010066 000002 MOV RO, tt P) ;PUT RO IN STACK SLOT. 
017564 004736 JSR PC, a SP * sRETURN TO PREGOS SUBRT, 
784s 017566 000207 RTS PC 
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165530 


162516 
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162446 


-SBTTL GLOBAL SUBROUTINE DMRW - 


3¢* eee ete T TTT TTT TT TT TTT TT TTT TTT TTT TTT TTT ER 


at READ/WRITE DATA FROM/TO (DMTSTA) - 
;0 THIS ROUTINE READS DATA BYTES FROM OR WRITES DATA BYTES TO AN ADDR OF 
od ALTERNATE 1°S AND 0'S THE ADOR 


- BITS 21 TO 6 OF T ARE CONTAINED AT 
NOS T OF 


34 OMTSTA. THE ROUTINE APE THE 6 LSB’‘S TO PRODUCE 
34 ALTERNATE 1°SAND 0’S. THIS ROUTINE IS CALLED FROM THE DMA ADDRESS TEST. 
3;* 
3* INPUTS: RO - ADDRESS OF THE DATA TO BE WRITTEN TO COMTSTA), 
4 IF A WRITE IS SPECIFIED. 
34 Ri - ADDRESS OF THE AREA IN WHICH DATA FROM (DMTSTA), 
34 IS TO BE SAVED,IF A READ IS SPECIFIED. 
34 RS - NUMBER OF DATA BYTES TO BE READ/WRITTEN 
34 RS - CLEAR , SPECIFIES A READ F DMTSTA) 
3* SET SPECIFIES A WRITE TO (OMTSTA). 
34 DMTSTA - CONTAINS BITS 21 TO 6 OF T 
34 MMSRO - ADDRESS OF MEM MGT STATUS REG 00 
34 MMPRES - BIT #0 SET, INDICATES MEM MGT PRESENT 
54 PAR6A - ADDRESS OF MEE MGT PAR 06 
34 TP4FLG - 004 TRAP FLAGS 
3 * 
3# OUTPUTS: DATA AT COMTSTA) SAVED OR WRITTEN 
34 PAR #6 - CONTENTS SET TO CONTENTS OF DMTSTA 
te TP4FLG - CLEAR IF READ/WRITE SUCCESSFUL 
34 SET IF FAIL. 
34 
3# CALLING SEQUENCE: JSR PC .OMRW 
;* 
3*# COMENTS: IF MEM MGT IS PRESENT THE SUBROUTINE USES (CDOMTSTA) 
34 AS THE PAGE ADDRESS , PLACING IT IN PAR 96, AND CREATES 
34 A VIRTUAL ADDR IN N THE R RANGE OF PAR #6 WHICH CONTAINS 
34 THE SIX LSB’S. 
33 IF IT IS NOT PRESENT THE (DMTSTA) IS CONVERTED INTO 
36 THE EQUIVALENT 16 BIT PHYSICAL ADORESS. 
34 
3# SUBORDINATE ROUTINES CALLED: CKTRAP,DM16B. 
s-- *PASPAOASORGADADEAEAEEESALERORDAEEREADEDARDDRADSDDERAREREESESOSDAOOORCCS 
DMRW:: SAVE 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV RO,R4 sSAVE THE SOURCE ADDR 
TST MMPRES ;IF MEM MGT :* PRESENT THEN 
BNE 6% sJUMP AND SET UP THE PAR 03 
JSR PC .DM168 S OTHERWISE CONVERT DMTSTA INTO A 16-BIT 
;PHYSICAL ADDRESS, IN RO. 
BR 10$ s JUMP TO PERFORM THE MOVE 
63: MOV DMTSTA,@PAR6A ;SET PAR #6, 
MOV #140052 ,R0 ;SET THE SIX LSB‘S AND CONVERT TO 
ty Pan Ok. ADDRESS WITHIN THE INFLUENCE 
BIT 91,DMTSTA ;IF BIT 00 OF DMTSTA =, o™ THEN 
BEQ 8$ sAVOID CHANGING THE L 
MOV #140025,R0 sCHANGE THE LSB’S 
8$: MOV OB ITO, BMMSRO sENABLE MEM MGT 
10$: TST RS ;IF A READ IS SPECIFIED THEN 
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BEG 12s 
MOV RO,R1 
MOV R4 RO 
177424 12%: JSR PC .CKTRPB 
scc 14% 
INC Ri 
INC RO 
DEC RS 
les 
162420 14%: TST MMPRES 
BEQ 1683 
162406 CLR aMMSRO 
16$: PASS 
JSR 
RTS PC 


i SWAPING THE SOURCE AND DESTINATION. 


IRESTORE THE ORIGINAL SOURCE FOR THE MOVE. 
:PERFORM THE BYTE MOVE. 

sEXIT IF A TRAP OCCURED. 

s INCREMENT THE DESTINATION ADDRESS 

s INCREMENT THE SOURCE ADOR. 

;DECREMENT THE DATA 

sREPEAT UNTIL ALL DATA READ/WRITTEN 

ag MEM MGT IS PRESENT THEN 

DISABLE IT. 


PC, @(SP)-» sRETURN TO PREGOS SUBRT, 
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165406 
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162224 


-SBTTL GLOBAL SUBROUTINE 


se** COCOOPORPSSDESERESSEDEDOSEOSESONESESEEEOSEREEDAERDDDDEEEDESEDEEEEEEEOEDERSES 


3° - INITIATE DMA TRANSMISSION ROUTINE - 

3¢ THIS ROUTINE WRITES THE DMA PARAMETER TO THE SPECIFIED DEVICE AND 

s¢ INITIATES THE DMA TRANSMISSION. 

= 

ir INPUTS: Rl - LINE NUMBER ON WHICH TO INITIATE THE DMA, 

3° R2 - START ADDRESS OF THE DMA BUFFER (16 BIT VIRTUAL). 

34 RS - CHARACTER COUNT OF THE DMA BUFFER. 

34 CSRA - CONTAINS ADDRESS OF THE DUT CSR. 

34 IESTAT - STORAGE FOR STATES OF THE INTERRUPT ENABLE BITS. 

3¢ TXADIA - CONTAINS ADDRESS OF DMA Tx BUFFER ADDRESS REG 0¢1 

:¢ TXAD2A - CONTAINS ADDRESS OF DMA TX BUFFER ADORESS 2, 

3¢ TXBFCA - CONTAINS ADDRESS OF OMA CHARACTER COUNT REGISTER. 

3;¢ 

3¢ OUTPUTS: CARRY - SUCCESS FLAG (SET IF DMA _START FOUND CLEAR). 

:¢ DUT TBUFFAD1 - LS 16 BITS OF DMA BUFFER ADDRESS (INITIALIZED). 
3¢ OUT TBUFFPD2 - MS 6 BITS OF DMA BUFFER ADDRESS CINITIAL IZED), 
50 DMA_START BIT SET. 

34 DUT TBUFFCT - DMA BUFFER CHARACTER COUNT CINITIALIZED). 

3* 

s# CALLING SEQUENCE: JSR PC ,DODMA 

32 

3@ COMMENTS: THIS ROUTINE ASSUMES MEMORY MANAGEMENT TS DISABLED AND 

;¢ CLEARS THE TWO MSB OF THE DMA ADDRESS, I.€. BITS O AND 1 

3:6 OF THE TBUFFAD2 REG. 

3° 

3@ SUBORDINATE ROUTINES CALLED: NONE. 

B-° OPOORSOOOOESEESEOESEOEEOESOEDEDEDODESODEOADEEREEDDEREOEDEDDDDREEELEEELOOOEL 
DODMA:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS. 
RS 3CALL etree SAVE SUBRT., 


JSR 
:PREPARE TO CLEAR UPPER 6 BITS OF DMA BUFF AOR. 


MOV 2200 ,R4 


3° 

; WRITE THE DMA PARAMETERS OUT TO THE DUT DMA REGISTERS, 
$ DISABLE INTERRUPTS. 

; SET UP DUT CSR IND.ADR.REG FIELD. 

i WRITE THE DMA TRANSMIT CHARACTER COUNT. 

3 WRITE THE LEAST SIGNIFICANT 16 BITS OF THE DMA BUFFER START ADDRESS. 
$ WRITE THE MOST SIGNIFICANT 6 BITS OF THE ° 

; SETTING THE DMA_START BIT, AND INITIATING THE DMA TRANSMISSION, 

i 

6 


$: GETPRI RS 1GET THE PRESENT PROCESSOR PRIORITY . 


CSGPRI 
MOV RO,RS 
SETPRI oPRIO7 sCISABLE HLL HARDWARE INTERRUPTS, 
MOV wae 


TRAP CsSPR 

BIS IESTAT,R1 sPREPARE FOR SETUP OF LINE NUMBER IN DUT CSR. 
MOV R1,@CSRA sSET UP THE DUT CSR IND.AOR.REG FIELD, 
TSTB = BI XAD2A sTEST THE DUT DMA START BIT, 
cic s INDICATE FAILURE IN CASE DMA.HO BIT IS SET, 

60% sEXIT WITH FAILURE IF DMA.HO BIT IS SET. 
MOV R3,@TXBFCA sWRITE THE DMA CHARACTER COUNT. 
MOV R2,@8TXAD1A sWRITE THE LS 16 BITS OF BUFFER ADDRESS. 
MOVB R4,8TXADZA sWRITE MS 6 BITS OF ADR AND START OMA Tx, 
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605: 


SETPRI RS 
SEC 
PASS 
JSR 
RTS PC 


sRESTORE THE PROCESSOR PRIORIT/. 
MOV RS,RO 
TRAP CSSPRI 
s INDICATE SUCCESS. 


seers es 
. . sRETURN TO PREGOS SUBRT. 
s+ CARRY - SUCCESS FLAG (SET IF SUCCESS). 


SEQ 


“94 
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165316 


1 
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000014 


-SBTTL GLOBAL SUBROUTINE - FINACT - 


3° OPPRELSSODEESELESASEEEOSESEEEEDEOSE SESE OEOEREEEEEEDEREEDEEDEREDEDEESEEOEEDS 
- FIND FIRST ACTIVE LINE - 
3¢ THIS SUBROUTINE CALCULATES THE NUMBE 


R OF THE FIRST ACTIVE LINE THAT 
3* IS FOUND IN THE ACTIVE LINE BIT MAP ACTLNS. 
e 
: INPUTS: ACTLNS - CONTAINS THE ACTIVE LINE @IT MAP , 
a 
se OUTPUTS: Ri - CONTAINS THE NUMBER OF THE FIRST ACTIVE LINE. 
3° RS - CONTAINS THE BIT MAP REPRESENTATION OF THE ACTIVE LINE, 
36 CARRY SET INDICATES SUCCESS. 
3% 
3@ CALLING SEQUENCE: JSR PC .FINACT 
34 
3* COMMENTS: 
3% 
3# SUBORDINATE ROUTINES CALLED: NONE. 
i-- CASPER EODESEEESSESEDESEOESESEASOORSOEAEDOEDDEEAEEREDERDDEREDEDROEEEEEEESOS 
FINACT:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
3° 
; FIND AN ACTIVE LINE ON WHICH TO PERFORM THE TEST. 
g- 
CLR Ri ;CLEAR THE LINE NUMBER COUNTER. 
MOV ONUMLNS ,R3 sGET MAX LINE NUMBER. 
MOV ACTLNS,RO GET THE ACTIVE LINE BIT MAP. 
MOV #1,R5 :SET UP A LINE BIT MASK. 
2s; BIT RS ,RO sLOOK FOR AN ACTIVE LINE. 
BNE 4% sBRANCH TO BEGIN TEST IF A LINE HAS BEEN FOUND. 
ASL RS sSHIFT THE BIT MASK FOR THE NEXT LINE. 
INC 1 sINCREMENT THE LINE NUMBER COUNTER. 
CMP R1,R3 sCHECK IF ALL LINES HAVE BEEN TRIED. 
BLT 2s sLOOP TO TRY THE NEXT LINE. 
CLC sCLEAR CARRY BIT, NO ACY"'YE LINE FOUND. 
BR 60% sEXIT WITH FAILURE. 
4$ SEC 3SET CARRY, SUCCESS. 
60%: PASS R1i,R5 sRESTORE GPRS, EXCEPT 
MOV R1,R1ISLOT(SP) sPUT R1 IN STACK SLOT. 
MOV RS,RSSLOT(SP) sPUT RS IN STACK SLOT. 
JSR PC ,@( SP). sRETURN TO PREGOS SUBRT. 
sR1 - CONTAINS THE NUMBER OF FIRST ACTIVE LINE. 
sRS - CONTAINS THE BIT MAP OF THE ACTIVE LINE. 
ats ae sCARRY - SET INDICATES SUCCESS. 
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5655 


004567 
010067 
010167 
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-SETTL GLOBAL SUBROUTINE - FRPSUP - 


s+ OOEOORSRESSESDEOSEOOESESESESODSEOSREESSEDEDDEDEEEEEDEDEDEDEEEEDEDEEEOREEEES 


3¢ - FRAMING AND PARITY ERROR TRANSMISSION/RECEPTION SET-UP - 
;¢ 

58 THIS ROUTINE IS USED TO INITIALISE BOTH THE DUT AND THE 

3¢ TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
34 STATE, PRIOR 70 A FRAMING OR PARITY ERROR DETECTION AND 

s*¢ REPORTING TEST. 

3* 

3# INPUTS: RO - LPR CONTENTS FOR LINES IN THE BIT MAP IN GPR4. 

;4 Rl - LPR CONTENTS FOR LINES NOT IN THE BIT MAP IN GPR4. 

34 R2 - START ADDRESS OF DATA PATTERN TO TRANSMIT, 

3 RS - LENGTH OF THE DATA PATTERN TO Tx. 

34 R4 - LOCAL LINE GROUP BIT MAP. 

34 ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTLY ACTIVE LINES. 
3* LOPBCK - CONTAINS THE TYPE OF LOOPBACK MODE SELECTED. 

:4 CBB - LABEL AT BASE OF TX/RX CONTROL BLOCK, 

3% 

3# OUTPUTS: THE CONTENTS OF THE TXRCB ARE DESTROYED. 

34 THE INDIRECT ADDRESS FIELD OF THE DUT CSR MAY BE DESTROYED. 
34 THE DUT’S LPR'S AND LNC’S MAY BE MODIFIED. 

36 THE FOLLOWING POINTERS AND COUNTERS ARE INITIALISED; 

34 CHCNT , CHRTOT .DPEND,OPLEN,EXCNT ,RXCNT »«RXDONF ,RXPTR, TXCNT, 
3° TXDONF , TXPTR, TXRXL. 

;* 

3# CALLING SEQUENCE: JSR PC .FRPSUP 

3¢ 

:* COMMENTS: THIS ROUTINE SHOULD BE CALLED TwICE DURING THE TESTING OF 
54 THE FRAMING AND PARITY ERROR DETECTION AND REPORTING TEST. 
34 SO THAT BOTH LINE GROUPS ARE TESTED ON TRANSMISSION AND 
56 RECEPTION. 

r JSR PC,FRPSUP ; DO SET-UP. 

54 EXECUTE TEST FOR THE ABOVE SET-UP. 

3* COMPLEMENT THE LINE GROUP BIT MAP. 

5¢ JSR PC,FRPSUP :D0 SET UP AGAIN, 

3° EXECUTE TEST AGAIN. 

3 


## SUBORDINATE ROUTINES CALLED: TXRINI. 


3-- SAAORORSOOEELESEAEEESSOSOSEEEESEESEDEEEDERDEREDOREDREDDDDDEREDREDESOEDEDELEES 


FRPSUP:: SAVE sSAVE THE CONTENTS OF THE GPR’S. 
CALL REGISTER SAVE SUBRT. 

MOV —sRO.. 708 SAVE LPR PARAMETER FOR Tx. 
MOV RI 728 sSAVE LPR PARAMETER FOR LINE RX. 

i SET UP THE TRANSHISSION/RECEPTION CONTROL BLOCK 10 INITIALISE THE 

; ACTIVE LINES IN THE BIT MAP PASSED INTO THIS ROUTINE. 

re MOV 80,CBB sSET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 
MOV @CBB-2,RO ;GET ADORESS OF THE 


MOV 
MOV R2,(RO)> 


MOV #1,(RO)> 4 

MOV ACTLNS, (RO) sBIT MAP OF LINES TO INITIALISE, 

COM R4 sGENERATE A BIT MAP OF ACTIVE LINES IN GRP1, 
SIc R4,CRO)- sCLEAR THE UNWANTED LINES, 


SEG 94 
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3711 020132 116720 162036 MOVB LOPBCK,{RO)+ SET LOOPBACK MODE. STAGGARED. 
3712 020136 005200 INC R0 INCREMENT ADDRESS TO GET NEXT WORD IN TABLE. 
3713 920140 012710 ov0001 MOV «-@2.. (ROD sSET AMMOUNT OF OFFSET FOR EACH Tx START. 
3715 
3716 : INITIALISE THE DUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STATE 
3717 ; DICTATED BY THE CONTENTS OF THE TX/RX CONTROL Br Gok 
3719 020144 004767 00553 : JSR —s« PC, TXRINI ;INITIALISE DUT. 
5721 ; SET UP CONTROL BLOCK FOR LINES IN GROUP 2. 
3723 020150 012700 003122 , MOV —«-@CBB..RO :GET START ADDRESS OF CONTROL BLOCK. 
3724 020154 010120 MOV —«R1,(RO)- :SET LPR PARAMETER FOR RX x UI 
3725 020156 062700 000010 ADD —- #10.RO :SELECT THE ADDRESS OF THE LINE BIT MAP IN C.8. 
3726 020162 016710 162004 MOV _—sACTLENS.. (RO) :BIT MAP OF LINES TO INITIALISE. 
3727 020166 005104 COM RG :GENERATE A BIT MAP OF LINES IN GRP 2. 
3728 020170 940410 BIC 4, (ROD ;CLEAR THE UNWANTED LINES. 
37 ; INITIALISE THE OUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STATE 
3731 s DICTATED By THE CONTENTS OF THE TX/RX CONTROL BLOCK 
3 
3733 020172 004767 005506 JSR —s- PC, TXRINI ;INITIALISE DUT. 
3735 
3736 ; SET-UP THE REQUIRED LPR PARAMETERS NEEDED FOR THE CORRECT RECEPTION OF DATA 
3737 ; ON ASSOCIATED IN-ACTIVE LINES. 
3738 i 
3739 of 
$740 ; INITIALISE LPR PARAMETERS FOR INACTIVE LINES IN GROUP 2. 
g- 
3742 020176 012701 177777 MOV —s @MAPLINNS.R1 sSET UP BIT MAP CORRESPONDING TO ALL LINES. 
3743 020202 016702 161764 MOV ACTLINS .RO ;GET THE ACTIVE (TX) LINE BIT 
3744 020206 005101 COM oR :GENERATE A BIT MAP OF NONE EXISTANT LINES. 
3745 020210 : COM sR GENERATE A BIT MAP OF INACTIVE LINES, 
3746 020212 040102 BIC Ri. R2 sCLEAR ANY “NONE EXISTANT” INACTIVE LINES. 
3747 020214 040402 BIC Ra_R2 
3748 020216 010267 162712 MOV  R2°CBMAPA ;SET UP BIT MAP IN CONTROL BLOCK 
3749 020222 ? 162704 CLR _CBOPNA sCLEAR REPEAT TX COUNT IN CONTROL BLOCK. 
3750 020226 016767 000072 162666 MOV 728, CBLPRA :SET-UP COMPLEMENTARY LPR P 
3751 020234 004767 o05aaa JSR sé, TXRINI SINITIALISE INACTIVE LINES 
3* 
Hs 3 INITIALISE LPR PARAMETERS FOR INAACTIVE LINES IN GROUP ti 
3. 
3755 020240 016702 161726 MOV —sACTLNNS..R2 GET THE ACTIVE (TX) LINE BIT Map. 
3756 020244 102 COM RD ;GENERATE A BIT MAP OF INACTIVE LINES. 
3757? 020246 040102 BIC —R1.R2 sCLEAR ANY NONE EXISTANT INACTIVE LINES. 
3758 020250 005104 COM oR 
759 020252 040402 BIC R4,R2 10M PASS LGRP2 ASSOCIATED LINE BIT Map. 
3760 020254 010267 162654 MOV * CBMAP T-UP BIT MAP IN CONTROL BLOCK. 
3761 020260 016767 000036 162634 MOV 703, CBLPRA ;SET-UP COMPLAMENTARY LPR PARAM FOR LGRP1. 
3762 020266 004767 d054i2 JSR sé PC. FXRINI sINITIALISE INACTIVE LINES IN LGRP1. 
3764 ; DISABLE RECEIVERS ON ALL LINES TO ENSURE THAT OM.) THE RECEIVERS OF THe 
3765 : ASSOCIATED ACTIVE (TX) LINES ARE ENABLED.(STAGGARED LOOPBACK) 
3766 ; RE-ENABLE RECEPTION ON THE CORRECT ASSOCIATED LINES 


3767 < 
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5768 020272 012705 177777 MOV @MAPLNS RS ;SET-UP BIT MAP FOR ALL LINES. 
14 44 020276 004767 004002 JSR PC .RXDSBL sDISABLE RX ON ALL LINES. 

:* 
sors ; EWABLE RECEIVERS ON ASSOCIATED (RX) LINES. 

ia 
5773 020502 016705 161664 MOV ACTLNS,.RS sGET ACTIVE (TX) LINE BIT MAP, 
5774 020306 004767 177070 JSR PC. CONMAP sGENERATE AN ASSOCIATED (RX) LINE BIT MAP . 
hk 020312 004767 004062 JSR PC. RXENBL sENABLE RECEIVERS ON ASSOCIATED LINES. 

6 
5777 020316 605: PASS sRESTORE GRP'S. 
0203516 004736 JSR PC.a(SP)- sRETURN TO PREGOS SUBRT. 
5778 020329 000207 RTS PC 
3779 020322 000000 70$: -WORD 0 sLOCAL STORAGE OF LPR PARAMETER Tx, 
0) sLOCAL STORAGE OF LPR PARAMETER Rx. 


thr 020324 9000000 728: - WORD 


OYA! Sob fhe 


58053 


020326 
020526 
020332 


020374 


004567 
016705 


012767 
104443 
000406 
002230 
000052 
010020 
177777 
113000 
016702 


012701 
012703 


020243 
001416 
005301 
001374 


020243 
001412 


010246 
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164772 
161672 


002260 


161640 


000017 
002464 


161664 
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-S6TTL GLOBAL SUBROUTINE - GETBOR - 


se OOPOSOPSOOOESSSODSSOSSOESSOEESOESESESEDEEEDEDEOEEEDEDEDEEEDOEEEEEEECESECOSS 


36 - GET BAUDRATE SUBROUTINE - 

3° THIS ROUTINE REQUESTS A BAUDRATE INPUT FROM THE OPERATOR. THIS 
s¢ BAUDRATE IS LOOKED UP IN A TABLE TO GIVE THE LPR BAUDRATE FIELD 
3° VALUE WHICH IS ASSOCIATED WITH THAT SAUDRATE . 

3;* 

3* INPUTS: BORMSG - LABEL AT THE BAUDRATE PROMPT MESSAGE . 

3° SRIBLE - LABEL AFTER END OF THE BaUORATE TABLE. 

6 UBRFMT - LABEL AT THE UNSUPPORTED BAUDRATE MESSAGE. 


Rl - BAUDRATE CODE IN LS 4 BITS. 
JSR PC .GETBOR 


34 
s@ OUTPUTS: 
2 CALLING SEQUENCE: 
- COMMENTS: 

‘6 SUBORDINATE ROUTINES CALLED: NONE. 


$-- COOPPSPORSSESEERESEOSEDESSESSOSESOESEEDEOEDOEDESO DEERE EODEEDEODEDEESEOOOOS 


GETBDOR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS , PREGOS sCALL REGISTER SAVE SUBRT. 
MOV GMANWD ,R5 3SAVE THE GMAINIX VALUE. 


t° 
; PROMPT THE OPERATOR: “MODEM BAUDRATE IN BPS: (D0) 1200 ?” 


é 
2s: MOV #1200. , GMANWD sSET UP DEFAULT VALUE 10 1200 BAUD. 
GMANID SDRMSG,GMANWD,D,177777,0, 38400. , YES 
TRAP C $GMAN 
BR 10000 $ 
-WORD GMANWOD 
. WORD T $CODE 
-WORD BORMSG 
. WORD 177777 
-WORD TSLOLIM 
. WORD TSHILIM 


100008; 
MOV GMANWD ,R2 


| 
; ATTEMPT TO LOOK THE VALUE UP IN THE BAUDRATE TABLE. 
iw 


MOV «015. Rl sINITIALIZE BAUDRATE CODE TO HIGHEST BAUDRATE, 
MOV OBRTBLE,RS ;INITIALIZE BAUDRATE POINTER, 
4%: CMP RD, -( RB) sCOMPARE BAUDRATE WITH A TABLE ENTRY. 
BEQ 608 sBAUDRATES COMPARE? YES, EXIT WITH CODE. 
DEC —s 1 sNO, SET BAUORATE CODE TO NEXT LOWER BAUDRATE, 
BNE 4s : ;DONE? NO, LOOP, 
CMP oR2, -(R3) ;CHECK IF LAST BAUDRATE MATCHES, 
BEQ 603 sBAUDRATES MATCH? YES. EXIT WITH CODE. 


3* 
; REPORT “NNNNN IS NOT A SUPPORTED BAUDRATE, ENTER ANOTHER OR CTRL ¢C.° 


3 _ 
PRINTF @UBRFMT,R2 


MOV R, ,5P) 


DM -11 FUNC TST PARTS 
GLOBAL S$! BROUTINE 


020450 
5833 020452 000207 
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- GETBDR - 
007722 MOV OUBRFMT, -( SP ) 
000002 MOV @2,-(SP) 
MOV SP RO 
TRAP = CSPNTF 
000006 06, SP 
BR 2s ;LOOP TO GET ANOTHER BAUDRATE. 
161564 608: MOV RS,GMANWD sRESTORE THE GMANIX PARAMETER VALUE. 
PASS RI sRESTORE GPRS, EXCEPT THE FOLLOWING. 
000004 MOV R1,R1SLOT(SP) sPUT R1 IN STACK SLOT. 
JSR PC, a( SP). ;RETURN TO PREGOS SUBRT. 
RTS PC ; Rl - BAUDRATE CODE. 


i) tae 


5835 
36 


020520 
020524 


020534 


1ST PARTS 
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164644 


162226 
162214 


003120 


002720 
162172 


162172 


000006 


-SSTTL GLOBAL SUBROUTINE 


s*e #92666 6466666665666666666664660646646466666466 


- GET A CHARACTER FROM 


- GETCHR - 


SPSSCASEEESESEDEEEEEEEEEEEEEEEEEEES 


THE RX BUFFER ROUTINE - 


:¢ THIS SUBROUTINE GETS A CHARACTER FROM THE RX BUFFER WHICH IS IN THE 
:¢ HOST SYSTEM MEMORY. IF THE BUFFER IS EMPTY UPON ENTRY OF THIS ROUTINE 
;* THIS ROUTINE RETURNS A NULL CHARACTER WITH DATA.VALID CLEAR AND A 
“ BUFFER EMPTY INDICATION. 

i 

3* INPUTS: RXBCNT - RX BUFFER CHARACTER COUNT. 

34 RXBEND - LABEL AFTER END OF THE RX BUFFER AREA IN MEMORY . 
34 RXBETX - EQUATED TO RX BUFFER LEVEL AT WHICH TO ENABLE Tx. 
34 RXBOPT - POINTER TO NEXT AVAILABLE INPUT SLOT OF Rx BUFFER. 
34 RXBSTA - LABEL AT START OF RX BUFFER AREA IN MEMORY . 

34 

3# OUTPUTS Re _- CHARACTER WHICH IS READ FROM THE BUFFER. 

34 RXBOPT - UPDATED TO POINT TO NEXT INPUT SLOT OF Rx BUFFER. 
36 RXBCNT - RX BUFFER CHARACTER COUNT (UPDATED) 


; 
;* COMMENTS: 
s 


CARRY - “SUCCESS” FLAG (SET IF BUFFER Is NOT EMPTY ON ENTRY), 
3% 
;* CALLING SEQUENCE: JSR 
7 


PC .GETCHR 


; 
s* SUBORDINATE ROUTINES CALLED: NONE. 


t-- SAORSESESSESSEEELEDOSESESEDEEDOEEOESEAEERERADEDDDDDDEEEREDAAERDRREREEEERELS 


sSAVE CONTENTS OF GPRS RO THRU RS. 
RS .PREGOS sCALL REGISTER SAVE SUBRT 
NABLE” TX FLAG (SUBRT 
sGET NULL CHAR IN CASE BUFFER IS EMPT 


GETCHR:: SAVE 


2s: MOV 


RTS 


JSR 


ORXBSTA,R4 
R4 ,RXBOPT 


RXBCNT 


R2 
MOV 
JSR 


PC 


;CLEAR THE “RE-E 


sCHECK FOR RX BUFFER EMPTY, CLEAR CARRY. 
sEXIT THE ROUTINE IF BUFFER IS EMPTY. 
GET THE BUFFER OUTPUT POINTER. 
sGET A CHARACTER FROM THE BUFFER 


sDELETE THE READ 
sCHECK IF POINTER 
;SKIP WRAPAROUND 
sWRAP INPUT POINTE 


CHARACTER FROM THE BUFFER. 


SHOULD WRAP AROUND 


IF POINTER IS NOT AT END. 
R AROUND 


sUPDATE THE OUTPUT POINTER STORAGE. 


sREMOVE THIS CHAR FROM THE BUFFER COUNT. 
sSET SUCCESS FLAG, BUFFER WAS NOT EMPTY. 


sRESTORE GPRS, EXCEPT 


R2,R2SLOT( SP) 
PC ,@CSP)- RETURN 

sR2 - CONTAINS THE CHARACTER READ 
sCARRY -"SUCCESS” FLAG, SET IF BUFFER NOT EMPTY. 


sPUT R2 IN STACK SLOT, 


TO PREGOS SUBRT 


FROM BUFFER, 


N OUTPUT). 
Te 


SEG 101 


OMU-11 FUNC TS 
GLOBAL Si: BROUT 
3882 
3883 
3884 
3885 
3686 
3838 
3689 
5890 
3691 
3892 
3893 
3894 
5895 
58% 
5897 
3698 
3899 
3900 
3901 020536 
020536 
5902 020542 
3903 020544 
020550 
3905 0720552 
020556 
3908 O205e. 
3909 020564 
3910 020566 
3911 020570 
3912 020572 
3913 020574 
914 02 
3915 020604 


5916 

5917 020610 
020610 

3918 020612 
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005214 
177400 
161436 


-SBTTL GLOBAL SUBROUTINE - GETTIM - 


3;¢ OPORORSESEEEESESESESERESEESESEEDEOOEEEEEEEDEDDEEDEEEDEEEDEDEEDEEEEEEESOO‘S 
NE 


:* - TIME-OUT VALUE BASED ON MINIMUM BAUDRATE ROUTI : 

;¢ THIS SUBROUTINE GETS THE NECESSARY TIME -OUT VALUE TO VERIFY THAT ALL 
3¢ CHARS HAVE BEEN RECEIVED AT THE COMPLETION OF THE TX/RX OF A DATA 

34 PATTERN. THIS USES THE SLOWEST BAUDRATE WHICH IS SPECIFIED IN THE 
34 PASSED IN DUT LPR CONTENTS TO CALCULATE THIS TIME -OUT VALUE. 


Ri - DUT LPR CONTENTS. 
RXTOUT - TIME-OUT VALUE FOR WAITING FOR LAST Rx CHAR. 
PC .GETTIM 


34 

3@ INPUTS: 

$e OUTPUTS: 
2 CALLING SEQUENCE: JSR 
“n COMMENTS: 

3 SUBORDINATE ROUTINES CALLED: NONE. 


$-- SAEELOPSEELESRESESERESESEREDEAERESEREEAEOREEDEEEDDREDDDEADERDEERDEREEEEEO‘S 


GETTIM:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,.PREGOS s;CALL REGISTER SAVE SUBRT. 


SWAB R11 sPUT THE BAUD RATE FIELDS IN THE LOw BYTE. 
BIC #177400,R1 sCLEAR STOP,PARITY,AND CHAR FIELDS. 
MOV R1,R2 ;COPY BAUD RATE FIELDS. 


BIC #360 ,R1 sSELECT RX BAUD RATE FIELD ONLY. 
ASR R2 ;SHIFT TX BAUD RATE FIELD 


ASR Ro ; TO OCCUPY THE LOW FOUR BYTES. 

ASR Ro 3 

ASR R2 3 

CMP R1,R2 sCHECK IF SAME BAUD RATE IN EACH FIELD, 

BLOS sBRANCH IF RX BAUD RATE IS LOWER OR SAME. 

MOV R2,R1 3TX BAUD RATE IS THE SLOWER OF THE Two, 
2s: MOVB PROTBL(R1),R2 sGET PROPORTIONAL DELAY FROM TABLE 


BIC 9177400,R2 


sCLEAR UPPER BYTE BECAUSE OF SIGN EXTENSION. 
MOV  R2,RXTOUT 


sLOAD THE RX TIME-OUT VARIABLE 


sRESTORE GPRS. 
JSR PC.Q@(SP)>+ 
RTS PC 


;RETURN TO PREGOS SUBRT. 


SEG 


102 


Otek! Shalt ne” 


020614 
020614 
020620 


020624 


020642 


5 Secor 


004567 
016705 


005001 


010104 
006304 
016402 
030205 
001414 


016403 
016402 
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164504 
161346 


002364 


003202 
003342 


-SBTTL GLOBAL - INIOMA - 


SUBROUTI 
zee SCPOOLSASSSOSEESESESSEEESESSSSSESESSEEESEEELEDEEDEEDEDEDEDEDEREEDEEEEEDEOS‘S 


3¢ - INITIATE DMA TRANSMISSIONS ROUTINE - 

34 THIS ROUTINE IS USED TO INITIATE DMA MODE TRANSMISSION. IT SENDS 

34 THE INITIAL DMA BUFFER EACH ACTIVE LINE TO CAUSE FUTURE Tx 

34 INTERRUPTS WHICH WILL CONTINUE THE TRANSMISSION IF MORE THAN ONE 

3* BUFFER IS TO BE SENT. 

3* 

3@ INPUTS: ACTLNS - ACTIVE LINES BIT MAP. 

34 BSITTBL - LABEL OF TABLE OF WORDS EACH WITH A BIT SET. 

54 CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 

34 DPENDB - BASE OF THE DATA PATTERN END TABLE CENTRY PER LINE). 
34 DOPLENB - BASE OF THE DATA PATTERN LENGTH TABLE. 

34 IESTAT - PRESERVED STATES OF THE DUT INTERRUPT ENABLE BITS. 
3 NUMLNS - EQUATED TO NUMBER OF LINES ON A DUT. 

34 TXCNTB - LABLE AT BASE OF THE Tx CHARACTER COUNTER TABLE. 

34 TXPTRB - LABEL AT BASE OF THE TX DATA PATTERN POINTERS TABLE. 
34 

3# OUTPUTS: CSR - DUT CSR IND.ADR.REG FIELD IS DESTROYED. 

34 (Sf ee eee eee ec ace aes COMMENTS pee DDD S EC ESSSSESA SASS L ELE SE 
36 TXCNTX - COUNTERS INCREMENTED FOR LINES ON WHICH CHARS SENT. 
34 TXINTF - TX INT FLAGS (BIT SET IF DMA.HO FOUND SET ON LINE). 
3% 


3# CALLING SEQUENCE: JSR PC, INIOMA 


3* COMMENTS: THIS ROUTINE ASSUMES THAT AT LEAST ONE DATA PATTERN SHOULD BE 
ie TRANSMITTED ON EACH ACTIVE LINE. 

34 INTERRUPTS MUST BE DISABLED WHEN CALLING THIS ROUTINE. 

34 


s* SUBORDINATE ROUTINES CALLED: DODMA. 


be ng MASSSEEESEDESEODEDESEEEEADSESEEDEDADEEREDEDDEADDRDADRDEDEREALEDESEERSLE 
INIDMA:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 
MOV ACTLNS,RS sGET THE ACTIVE LINES BIT MAP, 


3¢ 
; SET UP LOOP WHICH HANDLES ONE LINE PER ITERATION. 
3 

CLR Ri sCLEAR THE LINE NUMBER COUNTER, 


GET A BIT MAP OF THE SELECTED LINE. 
IF THE LINE IS INACTIVE SKIP TO SELECT THE NEXT LINE, 


2s; MOV R1,R4 sCALCULATE AN OFFSET TO THE PROPER LINE 
ASL R4 s_ ENTRY IN A WORD TABLE (LINE @ TIMES 2). 
MOV BITTBL(R4),R2 ;GET A BIT MAP FOR THIS LINE. 
BIT R2,R5 sTEST THE ACTIVE LINES BIT FOR THIS LINE. 
BEG 10$ 3 "T TX ON THIS LINE IF IT IS NOT ACTIVE. 


+ 


; LINE IS ACTIVE. 

; INITIATE DMA ON THIS LINE. 

; GET THE DATA PATTERN LENGTH FOR THIS LINE. 
§.- 


MOV OPLENB(R4),R3 ;GET DATA PATTERN LENGTH FOR THIS LINE. 
MOV TXPTRB(R4>,R2 ;PREPARE TO PASS DATA PATTERN ADR TO DODMA RIN, 


3* 
; WRITE DMA PARAMETERS TO THE DUT, 
i 


5994 020702 
020702 
5995 020704 


Bak! Bho TINE" 


004767 
103403 


050567 
000402 
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177034 JSR =m 
Bcs :SKIP ERROR IF DODMA WAS SUCCESSFUL. 
s* 
; SET THE PROPER BIT OF THE TX INTERRUPT FLAGS TO INDICATE THE LINE ERROR. 
g- 
161400 BIS RS, TXINTF : INDICATE THE ERROR. 
BR 10$ :SKIP UPDATING POINTERS AND COUNTERS. 
: " UPDATE THE TX CHARACTER COUNT FOR THIS LINE. 
hes 
003502 6%: ADD R3, TXCNTB(R4 ) sADD THE DATA PATTERN LENGTH TO Tx CHAR COUNT. 
3¢ 
; INCREMENT LINE COUNTER,GOTO NEXT LINE IF NOT DONE. 
ge 
10%: INC R1 s INCREMENT THE LINE COUNTER 
000020 CMP R1,@NUMLNS ;COMPARE THE LINE COUNTER wis NUMBER OF LINES. 
BLT 2s sLOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 
60$: PASS ;sRESTORE GPRS. 
are a JSR PC ,aCSP)-+ sRETURN TO PREGOS SUBRT. 


SEG 104 


- —< <a 


020724 
020750 
4026 020782 


a 1ST PARTS 
St BROUT INE 


59 
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LINBIT - 


-SBTTL GLOBAL SUBROUTINE 


- LINBIT - 


s°¢ OOPOLOESOSSSSSSODOSEDEOOOOOESSSSOSEDESOEDEEEEDEEEDERDEEEEEEEEDESEESEALCES 


s* - LINE NUMBER TO BIT MAP CONVERSION SUBROUTINE - 
3¢ THIS SUBROUTINE IS USED TO GENERATE A BIT MAP CONE BIT OF 16 SET) 
3¢ BASED ON A LINE CRANGE: 1 TO 16). ONLY THE LS 6 BITS OF THE 
3* LINE NUMBER WORD ARE USED, THE OTHERS ARE MA MASKED OUT (SO UNMASKED 
3° MSBYTES OF OUT CSRS CAN BE PASSED TO THIS ROUTINE WITHOUT ERROR ). 
3¢ 
3¢ INPUTS: Ri - LINE NUMBER (ONLY LS 4 BITS USED, OTHERS DISREGARDED). 
36 BSITTBL - BASE LABEL OF A 16 WORD BIT TABLE. 
;* 
s¢@ OUTPUTS: - BIT MAP, BIT CORRESPONDING TO LINE NUMBER IS SET: 
3° IF LINE NUMBER IS 3, THEN BIT3 IS SET, ETc. 
s¢ 
3* CALLING SEQUENCE: JSR PC,LINBIT 
s¢ 
s@ COMMENTS: my CHECKING IS PERFORMED TO VERIFY THAT THE LINE NUMBER IS 
3° A LEGAL LINE NUMBER FOR THE DUT T CIE - LESS THAN NUMLNS). 
;* NOTE: THE LINE NUMBER IS NOT DESTROYED OF _es SO THIS 
3° ROUTINE CAN BE USED EASILY IN LOOP 
3° 
s* SUBORDINATE ROUTINES CALLED: NONE. 
g-- COPOOOSOLOSEOOOESOOOOEEESESEOEASEDEEEEODAEEOREDEEEEADEEREDDDDEEESEOLEOEESE 
LINBIT:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
164412 JSR »PREGOS sCALL REGISTER SAVE SUBRT., 
177760 BIC #177760,R1 MASK OUT ALL put 4 LSBITS OF THE LINE @. 
ASL Ri sMULTIPLY LINE @ By 2 TO =" WORD TABLE OFFSET, 
002 364 MOV BITTBL(Ri),RO :GET THE SINGLE BIT BIT M 
608; PASS RO sRESTORE GPRS, EXCEPT THE “FOLLOWING, 
000002 MOV RO »ROSLOT( SP) sPUT RO IN STACK SLOT, 
JSR PC.@( SP)» sRETURN TO res SUBRT. 
RTS PC ;RO - BIT MAP WITH LINE ® BIT SET 


SEQ 10% 


4079 
4080 


4081 
4082 021026 
4088 


PrteAd SHMRodt Ine? "4 


012701 
005201 


005201 
012711 


004 767 
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0044S2 


-SBTTL GLOBAL SUBROUTINE 


- MODSUP - 


s*e COOPOOSOOOODESELESODODEOOODESODESOESEDEEEEEOEEDEEEEEEEEEEEEEODEEEEOOEECOeee 


50 - MODEM LOOPBACK TX/Rx SET-UP ROUTINE . 
3@ 
3@ THIS ROUTINE IS USED TO INITIALISE BOTH THE DUT AND THE 
3¢ TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
34 STATE, PRIOR TO A MODEM LOOPBACK TEST DATA PATTERN Tx/Rx. 
3° 
3@ INPUTS: Ri - TX, RX LPR CONTENTS. 
3 R2 - START ADDRESS OF DATA PATTERN TO TRANSMIT. 
3¢ R3 - LENGTH OF DATA PATTERN. 
36 ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTLY ACTIVE LINES. 
3¢ CBB - LABEL AT BASE OF TX/RxX CONTRO! BLOCK, 
3@ 
3@ OUTPUTS: THE CONTENTS OF THE TX/Rx CONTROL BLOCK (CCB) ARE DESTROYED. 
pe THE INDIRECT ADDRESS FIELD OF THE DUT CSR MAY BE DESTROYED. 
34 THE DUT’S LPR’S AND LNC’S MAY BE MODIFIED. 
3¢ THE FOLLOWING POINTERS AND COUNTERS ARE INITIALISED; 
34 CHCNT ,CHRTOT , OPEND,.OPLEN, EXCNT ,RXCNT »RXPTR,TXCNT, 
30 TXPTR, TXRXL. 
36 CHRTOT, RXDONF, TXDONF AND TXINTF ARE CLEARED. 
34 
3@ CALLING SEQUENCE: JSR PC .MODSUP 
3% 
;* COMMENTS: DUT IS SET UP WITH DSR AND DTR SET. ONE DATA PATTERN IS 
3° SENT AND RECEIVED FROM EACH LINE. 
3@ 
3* SUBORDINATE ROUTINES CALLED: CONMAP ,RXENBL,T. TINI. 
g-- OPOOOSOAESOEEEOSEEOEOEEDEDEDEDEDEEEDOAEEREOEDEEREDREREEDDEDEDEDDEREEEASSSCES 
MODSUP:: SAVE sSAVE CONTENTS OF THE GPR'S RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
CLR CHRTOT sCLEAR TOTAL RECEIVED CHAR COUNTER, 
CLR TXINTF sCLEAR FLAGS USED TO LOG DMA H.OVER ERRORS. 
CLR TXDONF sCLEAR THE TX DONE FLAGS. 
CLR RXDONF sCLEAR THE RX DONE FLAGS. 
3° 
s SET UP THE TRANSMISSION/RECEPTION CONTROL BLOCK TO THE DESIRED STATE, 
MOV R1,CBB sSET CONTENTS OF LPR PARAMS IN TX/RX C.BLK. 
MOV oCBB ,R1 sGET BASE ADDRESS OF CONTROL BLOCK. 
INC RL s INCREMENT ADORESS FOR NEXT WORD 
INC Ri sINITIALISE THE FOLLOWING IN THE CNTRL BLK; 
MOV #11004,(R1)- s LNCTRL: RTS, DTR, ENABLE RECEIVERS. 
MOV R2,.{R1)- 1 START ADDRESS OF DATA PATTERN. 
MOV R3,(R1)> s DATA PATTERN LENGTH, 
MOV #1,(R1)- s NUMBER OF DATA PATTERNS TO TRANSMIT, 
MOV ACTLNS,(R1)- s BIT MAP OF LINES TO INITIALISE. 
MOVB @3,(R1)> sSET LOOPBACK MODE TO H325. 
INC i s INCREMENT ADDRESS FOR THE NEXT WORD. 
MOV @2,(R1) sSET AMOUNT OF OFFSET EACH Tx STARTS AT TO >. 


3° 


JSR 


: INITIALISE THE DUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STATE 
s DICTATED BY THE CONTENTS OF THE ITXx/Rx CONTROL BLOCK, 


PC, TXRINI sINITIALISE DUT, 


“EQ 


40 
4086 021032 


4095 

40% 021070 
021070 

4097 021072 


ClteA! SHithodt ink **"4 
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s INITIALISE PCINTERS AND COUNTERS FOR INACTIVE LINES TO ZERO, 
4 


177777 MOV @MAPLNS Ri sGET THE LINE BIT MAP FOR ALL LINES. 
161130 MOV ACTLNS.R2 sGET THE ACTIVE LINE BIT MAP. 

COM R1 3 

COM 4 3 

BIC R1,R2 sGENERATE AN IN-ACTIVE LINE BIT MAP. 
142060 MOV R2, CBMAPA sMOVE BIT MAP TO THE CONTROL BLOCK, 
162044 CLR CBLNCA ;CLEAR THE LNCTRL SET uP PARAMETERS. 
162046 CLR CBOPNA ;CLEAR THE REPEAT Tx COUNT IN CNTRL BLCK. 
004614 JSR PC, TXRINI 3SET UP PARAMETERS FOR INACTIVE LINES, 

60%: PASS sRESTORE GPR’'S. 
= ye JSR PC ,.aCSP). sRETURN TO PREGOS SUBRT. 
4 


“FG 197 


ocak! StMhodt ine "4 


021074 


4142 021100 
4143 021102 
4144 


4154 021124 


004567 
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164224 


000070 


-SBTTL GLOSAL SUBROUTINE - MSLGET - 

5 OOOO OOOOOOODSODOSSSOSESEOOEESEEDSODEEEDSSEEEEDEEEEEEEREREEEEDEEEEEESEOEESSENS 
;¢ - MILLI SECONDS LOOP WHICH RETURNS READ WORD AND REMAINING TIME - 

36 THIS SUBROUTINE IS A GENERAL PURPOSE TEST LOOP SUBROUTINE. IT IS USED 
Le TO VERIFY THAT A CERTAIN ACTION OCCURS BEFORE A TIME-OUT PERIOD. THE 
3° CALLING ROUTINE PASSES IN KHICH BITS SHOULD BE SET AND CLEARED FOR THE 
;* DESIRED CONDITION AND THE TIME-OuT VALUE IN MILLI-SECONDS. 

s* THIS ROUTINE CHECKS FOR THE DESIRED CONDITION UPON ENTRANCE INTO THE 
3 ROUTINE AND THEN EACH MILLI-SECOND THERE AFTER. 

;¢ UPON RET » THE LAST WORD WHICH WAS READ TO CHECK FOR THE CONDITION 
34 IS RETURNED BY THIS SUBROUT . 

3* 

3¢ INPUTS: Rl - TIME-OUT VALUE IN MILLI-SECONDS CUP TO 64K MS). 

34 R2 - BIT MAP OF BITS TO TEST (1 INDICATES TO TEST THE BIT). 

3¢ RS - DESIRED STATES OF THE INDICATED FIELDS IN Re. 

36 R4 - ADDRESS OF THE WORD TO TEST. 

;¢ MSLONT - MILLI SECOND SOFTWARE LOOP COUNT. 

34 

3# OUTPUTS: RO - THE LAST WORD WHICH WAS READ TO CHECK FOR THE CONDITION. 
fe Ri - REMAINING NUMBER OF MS IN TIME -OUT TIME. 

3° CARRY - SUCCESS FLAG (SET IF CONDITION IS MET BEFORE TIME -OUT)., 
;@ 

3@ CALLING SEQUENCE: JSR PC ,.MSLGET 

3° 

;* COMMENTS: THIS ROUTINE WORKS WITH OR WITHOUT A HARDWARE CLOCK, BUT THE 
3* CALIBRATION IS ONLY GUARENTEED WHEN A LINE CLOCK IS AVAILABLE 
36 ON THE SYSTEM. 

;@ THIS ROUTINE CAN BE USED AS A DELAY ROUTINE, BY SPECIFYING THE 
34 DESIRED DELAY AS THE TINE-OUT AND SPECIFYING A CONDITION TO 

3° LOOK FOR WHICH WILL NOT BE MET DURING THE DELAY. 

;@ IF A TIME-OUT VALUE OF O IS SPECIFIED, THIS ROUTINE CHECKS FOR 
;¢ THE DESIRED CONDITION BEFORE TURNING. IT INDICATES SUCCESS 
sa IF THE CONDITION IS MET, FAILURE OTHERWISE, 

;* 

;¢ 


3* SUBORDINATE ROUTINES CALLED: NONE. 


TORADORA SOLESSELODSOEDOESEESOOSODEDEDSEEADEDODAEADEEDDEDDEDREEEALEOESEEOCEDOS 


MSLGET:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT, 
3? 


s SET UP MASK FOR REMOVING UNUSED BITS IN THE TEST WORD, AND CLEAR UNUSED 
: BITS IN THE DESIRED STATE WORD TO ALLOW DIRECT COMPARISON. 
g- 


COM R2 sGET MASK OF UNUSED BITS. 
BIC R2,R3S sMASK OUT UNUSED BITS IN DESIRED STATE WORD. 
3° 
; HANDLE THE TEST AND EXIT IF WE HAVE A O TIME-OUT VALVE. 
| 
TST R1 sTEST THE TIME-OUT VALUE FOR ZERO. 
BNE es sIF NON-ZERO TIME-OUT, GO LOOP AND TEST, 
MOV (R4),RO iGET THE WORD TO TEST BEFORE EXITING, 
MOV RC,62$% sSAVE VALUE SO WE CAN RETURN IT, 
BIC R2,RO0 sMASK OUT UNTESTED BITS OF WORD, 
CMP RO,RS sCOMPARE AGAINST DESIRED STATE WORD, 
SEC sINDICATE SUCCESS IN CASE WORDS ARE EQUAL. 
BEQ 6$ sEXIT WITH SUCCESS IF WORDS ARE EQUAL, 


4 , 


F9 
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it SUBROUTINE Oeste . eG 1 
4155 021126 000241 cLC s INDICATE FAILURE (TIME-OUT). 
4156 021130 000416 BR 63 EXIT WITH FAILURE, WORDS AREN'T EQUAL. 
3* 
4158 ¢ NON-ZERO TIME-OUT VALUE. LOOP, WAITING FOR CONDITION OR TIME-OuT. 
g- 
4160 021132 016705 161156 2s: MOV MSLCNT.RS ;LOAD MS LOOP COUNT. 
4161 021136 011400 4s: MOV (R4).RO ;GET THE WORD TO TEST. 
4162 021140 010067 000042 MOV RO,62$ sSAVE WORD IN CASE THIS IS THE LAST. 
4163 021144 040200 Bic R2.RO ;MASK OUT UNTESTED BITS OF WORD. 
4164 021146 020003 CMP RO.R3 ;COMPARE AGAINST DESIRED STATE WORD. 
4165 021150 000261 SEC ;SET CARRY IN CASE OF SUCCESS. 
4166 021152 001405 BEG 63 sEXIT WITH SUCCESS IF WORDS ARE EQUAL. 
4167 021154 005305 DEC RS sCOUNT DOWN THE INSIDE MS LOOP COUNT. 
4168 021156 001367 BNE 43 ;LOOP IF MS NOT UP. 
4169 021160 0953¢1 DEC R1 :DECREMENT THE MS TIME COUNT. 
4170 021162 001363 BNE 23 :IF TIME NOT UP, LOOP TO COUNT ANOTHER MS. 
4171 021164 000241 cic ;CLEAR CARRY, WE TIMED-OuT. 
4173 + HAVE EITHER FOUND CONDITION, OR TIMED-OUT (POSSIBLY FROM © TIME-OUT VALUE). 
4176 s RESTORE THE LAST CONTENTS READ FROM THE TEST WORD. EXIT ROUTINE. 
g- 
4176 021166 016700 000014 63: MOV 62% ,RO sPASS OUT THE LAST READ WORD. 
4177 021172 608: PASS  RO.R1 sRESTORE GPRS, EXCEPT THE FOLLOWING: 
021172 010066 000002 MO RO,.ROSLOT( SP) sPUT RO IN STACK SLOT. 
021176 010166 000004 MC. R1,RISLOT(SP) ;PUT R1 IN STACK SLOT. 
021292 004736 JSR PC, @(SP)- sRETURN TO PREGOS SUBRT. 
4178 sRO - LAST READ WORD CHECKED FOR CONDITION. 
4179 sR1 - REMAINING TIME (O IF TIME-OUT OCCURED). 
aint 021204 000207 RTS PC sCARRY - SET IF SUCCESS, CLEAR IF TIME -OUT. 
z* 
4182 ; LOCAL STORAGE. 
4183 


4184 021206 000000 62%: -WORD 0 sSTORAGE FOR THE LAST READ WORD. 


Brisk! Shales" 


4218 
4219 021210 
021210 


4224 

4225 021214 

4226 

4227 021220 
021220 

4228 021222 


004567 


004767 


004736 
000207 
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ns. bbe 


164110 


177654 


-SBTTL GLOBAL SUBROUTINE MSLOOP - 


OOOO OOOO OOO 080099000000000000050000000000000000000000000000000000000000006 


3* - TEST LOOP SUBROUTINE - 

34 THIS SUBROUTINE IS A GENERAL PURPOSE TEST LOOP SUBROUTINE. IT IS USED 
34 TO VERIFY THAT A CERTAIN ACTION OCCURS BEFORE aA TIME-OUT PERIOD. THE 
s¢ CALLING ROUTINE PASSES IN WHICH BITS SHOULD BE SET AND CLEARED FOR THE 
:* DESIRED CONDITION AND THE TIME-OUT VALUE IN MILLI-SECONDS. 

34 THIS ROUTINE CHECKS FOR THE DESIRED CONDITION UPON ENTRANCE INTO THE 
34 TINE AND THEN ONCE EACH MILLI-SECOND THEREAFTER. 

34 

s*# INPUTS: Ri - TIME-OUT VALUE IN MILLI-SECONDS CUP TO 64K MS). 

34 R2 - BIT MAP OF BITS TO TEST (1 INDICATES TO TEST THE BIT). 

34 RS - DESIRED STATES OF THE INDICATED FIELDS IN R2. 

34 R4 - ADDRESS OF THE WORD TO TEST. 

34 MSLCNT - MILLI SECOND SOFTWARE LOOP COUNT. 

3% 

3@ OUTPUTS: CARRY - SUCCESS FLAG (SET IF CONDITION IS MET BEFORE TIME-OUT), 


+ 
3@ CALLING SEQUENCE: JSR PC .MSLOOP 

* 

3* COMMENTS: THIS ROUTINE WORKS WITH OR WITHOUT A HARDWARE CLOCK, BUT THE 


;* gg or gy Ry ONLY GUARENTEED WHEN A LINE CLOCK IS AVAILABLE 

3* ° 

36 THIS ROUTINE CAN BE USED AS A DELAY ROUTINE, BY SPECIFYING THE 
3* DESIRED DELAY AS THE TINE-OUT AND SPECIFYING A CONDITION TO 

3* LOOK FOR WHICH WILL NOT BE MET DURING THE DELAY, 

34 IF A TIME-OUT VALUE OF O IS SPECIFIED, THIS ROUTINE CHECKS FOR 
34 THE DESIRED CONDITION BEFORE RETURNING. IT INDICATES SUCCESS 

34 IF THE CONDITION IS MET, FAILURE OTHERWISE. 

34 


s# SUBORDINATE ROUTINES CALLED: MSLGET. 


b POSSERDOEAEEESSEOEESSOSESESEEEASSOEASOSEDEREDESEDDDDDERORDEEAROREEEALEDEDASLLS 


MSLOOP:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


; CALLING THE MSLGET ROUTINE FROM THE MSLOOP ROUTINE ISOLATES THE CALLER OF 
5 MSLOOP FROM THE RETURNED TEST WORD AND REMAINING TIME-OUT VALUES. 
R- 


JSR PC .MSLGET sCALL THE MULTI-PURPOSE MS LOOP AND SEARCH RIN. 
60%; PASS sRESTORE GPRS, 
JSR PC, a(SP)-+ sRETURN TO PREGOS SUBRT., 
RTS PC sCARRY - SET IF SUCCESS, CLEAR IF TIME-OUT, 


H9 
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4230 -SBTTL GLOBAL SUBROUTINE - MSSRPT - 
4231 36 COPOOEOSOODESSESESODSODOOESEOSSEEDEEEEEEEEEEEEDEREEREEEEDEEEEEEEEESEEOEOS 
4232 3° - MODEM STATUS SIGNAL REPORT ROUTINE - 
4235 :* THIS SUBROUTINE IS USED TO REPORT THE STATES OF THE MODEM STATUS 
aie 3° SIGNALS FOR ALL ACTIVE LINES. 
42 :* 
4236 3¢ INPUTS: ACTLNS - BIT MAP OF ACTIVE LINES. 
4237 3° CSRA - CONTAINS ADDRESS OF THE DUT CSR. 
4238 3¢ EF9101 - LABEL AT FORMAT STATEMENT FOR BLANK LINE, 
4239 ;* TESTAT - CONTAINS STATES OF THE DUT INTERRUPT ENABLE BITS. 
4240 .e STATA - CONTAINS ADDRESS OF THE DUT STAT REGISTER. 
424i 34 NUMLNS - EQUATED TO THE NUMBER CF LINES ON THE DEVICE. 
34 
4245 3* OUTPUTS: DUT CSR IND.ADR.REG FIELD - CONTENTS DESTROYED. 
$305 3° REPORT MESSAGES ARE PRINTED ON THE OPERATOR'S CONSOLE . 
a4 3° 
ry oy 3* CALLING SEQUENCE: JSR PC .MSSRPT 
3* 
4248 :@ COMMENTS: 
4249 ;* 
4250 s* SUBORDINATE ROUTINES CALLED: NONE. 
4251 s-- OPOCOSEREEEOLESESEEEEEOEEDOEEDEDESEREEDEDEDEEREREEEEEEROEEEEREEEREEDEEEECS 
4252 
4253 021224 MSSRPT:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
4256 021224 004567 164074 JSR RS ,PREGOS sCALi. REGISTER SAVE SuBRT. 
3 * 
4255 ; PRINT THE BASIC MODEM STATUS MESSAGE. 
anne ‘ “MODEM STATUS SIGNAL REPORT: ” 
~ 3 
4258 021230 PRINTF @MSFMT1 
021250 012746 007566 MOV OMSFMT1, -( SP) 
021234 012746 000001 MOV @1,-(SP> 
021240 010600 MOV SP ,RO 
021242 104417 TRAP CSPNTF 
aase 021244 062706 000004 ADD 64,SP 
4260 021250 005001 CLR R1 sSTART WITH LINE O. 
4261 021252 7 i MOV 91,R2 
4262 021256 016703 160716 MOV CSRA,R3 sGET THE CSR ADDRESS. 
4265 021262 016704 160746 MOV IESTAT ,R4 sGET THE STATES OF THE INTERRUPT ENABLE BITS. 
anes 021266 016705 160700 MOV ACTLNS,RS sGET THE ACTIVE LINES BIT MAP, 
4 021272 030205 23; BIT R2,R5S sTEST LINE BIT IN ACTIVE |.INES BIT MAP, 
ante 021274 001442 BEG 4% sLINE ACTIVE? NO, SKIP REPORT FOR LINE. 
4269 021276 010400 MOV R4,RO sSET UP DUT CSR_IND.ADR.REG FIELD 
4270 021300 050100 61S R1,RC s LEAVING THE INTERRUPT ENABLE 
4271 021302 010013 MOV RO,(R3) s B8ITS IN THE SPECIFIED STATE. 
4272 021304 017700 160676 MOV a Si SA,RO sREAD THE DUT STATUS REG FOR THIS LINE, 
4273 021310 SAVE sSAVE CONTENTS OF GPRS RO THRU RS, 
021310 004567 164010 JSR RS ,PREGOS sCALL REGISTER SAVE SuBRT, 
4274 021314 005002 CLR Re sCLEAR THE SIGNAL STATUS INDICATORS, 
4275 021316 005003 C.R RS 
4276 021320 5004 CLR fae 
4277 021322 005005 CLR R5 
4276 021324 0063500 ASL RO sSHIFT DSR INTO CARRY, 
4279 021326 006102 ROL R2 s THEN ROTATE INTO INDICATOR, 


Bink! Stl fine*" 


4260 021530 


4261 
42 


021532 
354 


021412 


021414 
021414 
021420 
021424 
021426 
021430 


006 302 


005201 
020127 
002727 


012746 
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SHIFT BLANK SLOT INTO CARRY, 

; SHIFT RI INTO CARRY 

; THEN ROTATE INTO INDICATOR, 
;SHIFT DCD INTO CARR 

; THEN ROTATE INTO INDICATOR, 
;SHIFT CTS INTO CARRY 

; THEN ROTATE INTO INDICATOR, 


&SL RO 
ASL RO 
ROL RS 
ASL RO 
ROL ah 
ASL RO 
ROL R5 
; ; PRINT THE STATUS FOR THIS LINE. 
; “LINE ON: OSR=N, RI=N, DCD=N, CTS=N” 


PRINTF @MSFMT2,R1,R2,.R3,R4.R5 


007626 
000006 
000016 
PASS 
JSR 
4$: ASL R2 
INC Ri 
000020 CMP R1, @NUMLNS 
BLT 
PRINTF @EF9101 
007306 
000001 
000004 
605: PASS 
JSR 
RTS PC 


MOV RS, -(SP) 

MOV R4, -( SP) 

MOV R3,-(€SP) 

MOV Re, -( SP) 

MOV Ri, -CSP) 

MOV OMSFMT2, -( SP, 
MOV #6, -CSP) 

MOV SP ,RO 

TRAP CSPNTF 

ADD ©16,SP 


sRESTORE Rios THE GPRS. 
PC ,ac SP) sRETURN TO PREGOS SUBRT. 


sSHIFT LINE BIT MAP TO NEXT LINE. 

s INCREMENT THE LINE COUNTER, 

;CMP LINE COUNTER WITH @ OF LINES ON DEVICE. 
sALi LINES DONE? NO, LOOP TO DO NEXT LINE. 


sPRINT A BLANK LINE. 


MOV OEF 9101, -( SP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 64,SP 


sRESTORE GPRS, 


PC, @( SP). sRETURN TO PREGOS S.UBRT, 


JY 
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BROUT INE - MUL 16U - 


GLOBAL SI 


021440 


021476 
021502 


021504 
021504 
021510 
021512 


012701 
000241 


010166 
004736 


000207 


163660 


177777 


000004 


-SBTTL GLOBAL SUBROUTINE - MUL16U - 


see OOPOOODOOOODEOOODSESEEDOSSOOESSSESEODESEEEEEDEEEREEDEDEDEEEDDEOEEEEEOESE+OO 


:* - 16 BIT UNSIGNED MULTIPLY ROUTINE - 

:¢ THIS ROUTINE MULTIPLIES 2 16 BIT UNSIGNED NUMBERS AND RETURNS A 16 BIT 
s¢ UNSIGNED RESULT. THE MULTIPLICATION IS PERFORMED By ITERATIVE 

:¢ ADDITION OF ONE NUMBER TO A SUM WHILE DECREMENTING THE OTHER NUMBER 

:* TO ZERO. IF OVERFLOW OCCURRS (177777 TO 0) THE PRODUCT IS INVALID. 


3° 

3* INPUTS: Ri - MULTIPLICAND (16 BIT UNSIGNED). 

3 R2 - MULTIPLIER (16 BIT UNSIGNED). 

3° 

3* OUTPUTS: Ri - PRODUCT (16 BIT UNSIGNED), -1 IF OVERFLOW. 

;@ CARRY - SET IF SUCCESS (NO OVERFLOW), CLEAR OTHERWISE. 
3% 

3* CALLING SEQUENCE: JSR PC ,MUL16U 

3° 

3@ COMMENTS: NOTE: FOR MINIMUM EXECUTION TIME RD2 SHOULD CONTAIN THE 
34 SMALLER OF THE 2 ARGUMENTS. 

;* 


s* SUBORDINATE ROUTINES CALLED: NONE. 


3-- CPOPEAASOSEEEESELESESOEEESEEEDDOAEEEEEREEDEEERDDEREDOREDEEREDDERERESEDEOES 


MUL16U:: SAVE SAVE CONTENTS OF GPRS RO THRU RS, 
JSR RS , PREGOS s;CALL REGISTER SAVE SUBRT. 
CLR R3 ;CLEAR THE PRODUCT. 
TST R2 sCHECK THE MULTIPLIER. 
BNE 2s sGO TO DO MULTIPLICATION IF NOT ZERO. 
CLR Ri sRETURN A T OF ZERO. 
SEC s INDICATE SUCCESS. 
BR 608 sEXIT THE ROUTINE. 
2s: ADD R1,R3 sADD THE MULTIPLICAND TO THE PRODUCT. 
BCS 50% sEXIT WITH OVERFLOW IF ONE OCCURRED. 
DEC sDECREMENT THE MULTI : 
2s sLOOP IF MULTIPLIER NOT ZERO. 
R3,R1 sPREPARE TO PASS OUT THE PRODUCT. 
SEC s INDICATE SUCCESS. 
603 sEXIT WITH SUCCESS. 
506: MOV #-1,R1 sFORCE PRODUCT TO MAX VALUE, WE OVERLFOWED. 
C.c s INDICATE FAILURE. 
60%: PASS Ri sRESTORE GPRS, EXCEPT THE FOLLOWING: 
MOV R1,RISLOT(SP) sPUT R1 IN STACK SLOT, 
JSR PC. OC SP)» sRETURN TO PREGOS SUBRT. 
s 1 - PRODUCT (16 BIT UNSIGNED), 
RIS PC s CARRY - SET IF SUCCESS (NO OVERFLOW), 


otek! SHBRouT ine” 


4397 021532 
4398 021536 
4399 


4400 
4401 
4402 021540 


004567 
010305 
052705 
005067 


004767 
103052 


010304 
006304 
006 304 
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163604 


177400 
000270 


175412 


-SBTTL GLOBAL SUBROUTINE - NEWCHR - 

see COOCOOOSODODSSSELOSSSEEOOSSEEEODOEEOO00000000000008000000000000000000000008 
36 - NEW CHARACTER HANDLING ROUTINE - 

34 THIS SUBROUTINE HANDLES A NEW CHARACTER WHICH HAS BEEN READ FROM 

34 THE DUT. THE COUNTERS AND POINTERS WHICH ARE INVOLVED WITH THE 

34 CHARACTER ARE UPDATED. THE CHARACTER IS CHECKED FOR ERRORS AND 

34 ANY ERRORS WHICH ARE FOUND ARE REPORTED. 

34 

;* INPUTS: R2 - THE READ CHARACTER INCLUDING ERROR FLAGS AND LINE NUMBER. 
34 RS _- MASK OF THE INACTIVES BITS IN A Tx OR RX CHAR BYTE. 

34 ACTLNS - BIT MAP OF ACTIVE DUT LINES. 

34 DPRSQB - LABEL AT DATA PATTERN RESYNC QUEVES TABLE BASE. 

34 TXRXLB - BASE OF TX/RX LINE R ASSOCIATION TABLE. 

34 BITTBL - TABLE OF WORDS WITH BITS SET FOR USE IN FORMING MAPS. 
Le | ERSMRF - “PRINT ERROR SUMMARY FOR LINE” FLAGS. 

3* ERRTBL - ERROR INFORMATION CERRNBR, ERRMSG, ERRTYP)., 

34 ERCNTB - BASE OF THE RX CHARACTER ERROR COUNTERS TABLE. 

34 NDERPT - CONTAINS NUMBER OF CHAR ERRORS TO REPORT ON AL : 
;* INPUTS TO SUBROUTINES: CHCNTB, DPENDB, DPLEN, DPRSQE, EXCNTB, RXCNTB, 
34 RXPTRB, ERRNBR, ERMSG, ERRTYP. 

3% 

3# OUTPUTS: ERRBLK - CONTENTS DESTROYED. 

;* FOLLOWING VARIABLES UPDATED FOR LINE ON WHICH CHAR WAS RECEIVED: 
34 DPRSQ - DATA PATTERN RESYNC QUE OF RECEIVED CHARACTERS, 

3* ERCNT - COUNT OF THE NUMBER OF CHARACTER ERRORS ON LINE. 

36 ERSMRF - UPDATED “PRINT ERROR SUMMARY FOR LINE” FLAGS. 

36 EXCNT - COUNT OF THE NUMBER OF EXTRA CHARS RECEIVED ON LINE. 
34 RXCNT - COUNT OF THE NUMBER OF CHARACTERS RECEIVED ON LINE. 

34 RXPTR - UPDATED TO POINT TO THE NEXT EXPECTED CHAR ON LINE. 


;4 
3# CALLING SEQUENCE: § JSR PC ,NEWCHR 


34 
;* COMMENTS: THIS ROUTINE CAN REPORT ERRORS WITH NUMBERS INITIAL ERRNBR 
;* AND INITIAL ERRNBR + 1. ERRNBR IS RESTORED TO ITS INITIAL 
34 VALUE BEFORE THIS ROUTINE RETURNS. 

34 

3# SUBROUTINZS CALLED: CKCHR ,CKINAC, TXROFF , TXRON, 

3* INDIRECT SUBROUTINES: CHKEXT , CHKLOS ,ER9002,ER9003,UPDCHR. 


i -- SESPROSSSSSEDESESERESEDEREEEEEEDAOREDEDADORERDERODADASEDREDADRDELERERASEEES 
NEWCHR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS, 
RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV R3,R5S sGET THE BIT MAP OF INACTIVE DATA BYTE BITS. 
BIS #177400,R5 sALL UPPER BITS OF EXPECTED DATA ARE INACTIVE. 
CLR 70% sCLEAR THE “ERROR FOUND” FLAG. 


IF THE NEW CHARACTER IS VALID ON AN INACTIVE LINE, GO REPORT ERROR, 
; ROUTINE USED ALSO EXTRACTS LINE NUMBER FROM THE NEW CHARACTER, 


ee JSR PC, CKINAC sCHECK FOR CHAR ON INACTIVE LINE. 


acc ;GO REPORT ERROR IF ON INACTIVE LINE. 
; PUSH THE NEW CHARACTER ON THE RESYNC QUE FOR THIS LINE. 
MOV —RB.RA ;CALCULATE BASE ADDRESS OF THE 
ASL RA ; DATA PATTERN RESYNCH QUEUE 
ASL ORG ; (QUEUE IS 4 WORDS LONG) FOR 


OCOeAL StBROUT Ine "4 


4405 021546 
cant 021552 


021566 
021570 


021572 
021576 


010211 


011402 
100112 


032702 
001427 


L% 
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MACRO M12 TP i AGE i 


004642 


000002 
000002 


070000 


014676 
004326 


000001 
000100 
004342 


174636 


004252 
163344 


160662 
163474 


160362 
160312 


160576 
163410 


160272 
160222 


ADD 
MOV 
MOV 
MOV 
MOV 


@DPRSGB .R4 
4,R 


2(R1),(R1)+ 
2¢R1).(R1)- 


SEQ 11% 


; THIS LINE. 

;GET THE BASE OF THE QUEUE. 

sMOVE FROM CHR1 SLOT TO CHRO SLOT. 
sMOVE FROM CHR2 SLOT TO CHRI SLOT. 
sPUT NEW CHAR INTO CHR2 SLOT. 


3° 
s CHECK THE DATA.VALID FOR THE CHARACTER AT THE BOTTON OF THE QUEUE. 
; IF DATA.VALID IS CLEAR, EXIT THE ROUTINE --NOTHING TO ANALYZE. 


ge 
MOV 
BPL 


3* 
; TEST FOR ANY OF THE ERROR BITS 


go 
BIT 
BEG 


3 


; WE HAVE AT LEAST ONE ERROR FLAG SET ON 
; REPORT DATA ERROR FLAG ERROR IF NOT IN 


MOV 
BIT 
BEQ 


JSR 


(R4),R2 
60$ 


#70000 ,R2 
2s 


sGET CHRO VALUE, SET FLAGS. 
sEXIT ROUTINE IF DATA.VALID IS CLEAR. 


SET IN CHRO. 


sTEST FOR ANY CHRO ERROR BITS SET. 
sSKIP THIS ERROR IF NO ERROR BITS SET. 


THE RECEIVED CHAR. 
SUMMARY MODE . 


70$ sSET THE “ERROR FOUND” FLAG. 
TXRXLBC(R3),RO sGET THE TX LINE OFFSET FOR THIS Rx LINE. 
BITTBLCRO),ERSMRF ;CHECK THE ERROR SUMMARY FLAG FOR TX LINE. 
2$ IF ERROR SUMMARY FLAG SET, SKIP NEXT REPORT, 
®ERSOO3S.ERRBLK ;SELECT THE ER9003 ERROR REPORT ROUTINE. 
PC, TXROFF ;TURN OFF TX AND RX DURING ERROR REPORTING. 

: >>>>> ERROR <<ccc, 

TRAP CSERROR 

#1,FERROR sINOICATE AN ERROR HAS BEEN FOUND. 
@BITO6 ,OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
60$ sEXIT IF IT HASN'T. 
PC, TXRON ;TURN TX AND RX BACK ON. 


3° 
3; CHECK THE CHARACTER AT THE BOTTOM OF THE RESYNC QUE FOR DATA ERRORS. 


3 
2s: JSR 
6cs 


PC ,.CKCHR 
6$ 


sCHECK THE CHRO CHAR FOR ERRORS. 
sSKIP ERROR REPORT IF CHRO IS CORRECT. 


3* 
; WE HAVE SOME SORT OF DATA ERROR SO REPORT IT (UNLESS IN SUMMARY REPORT MODE). 


as: DEC 


MOV 
BIT 


3 


70% sSET THE “ERROR FOUND” FLAG. 
TXRXLBCR3),RO sGET THE TX LINE OFFSET FOR THIS RX LINE. 
BITTBL(RO),ERSMRF ;CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
6$ | sSKIP ERROR REPORT IF ERROR SUMMARY FLAG SET, 
MER9002,ERRBLK ;SELECT THE ER9002 ERROR REPORT ROUTINE. 
ERRNBR sSELECT INITIAL ERRNBR + 1. 
PC, TXROFF sTURN OFF TX AND RX DURING ERROR REPORTING. 

3 >>>>> ERROR <«<ccec, 

TRAP CSERROR 

#1,F ERROR sINDICATE AN ERROR HAS BEEN FOUND. 
#8 IT06,OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
60$ sEXIT IF IT HASN'T, 
PC, TXRON ;TURN TX AND RX BACK ON. 
ERRNBR sRESTORE INITIAL ERRNBR. 


DHU-11 FUNC TST PARTS 
GLOBAL S\®ROUT INE 


022022 


M9 
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- NEWCHR - 


000044 
003302 


003302 
160166 


003302 
002364 


160156 
160462 


; COUNT A CHARACTER 
; UPDATE THE “REPORT E 


+ i 
6%: 


70%: 


ERROR IF ONE OCCURRED. 
RROR SUMMARY” FLAG FOR LINE BASED ON ERROR COUNT. 


70$ sCHECK THE “ERROR FOUND” F . 

60$ sSKIP COUNTING AN ERROR IF FLAG IS CLEAR 

ERCNTBC(R3) s INCREMENT THE ERROR COUNTER FOR THIS LINE 

8$ sSKIP SETTING COUNTER TO MAX IF NO OVERFLOW 

ERCNTB(R3) sRESET THE ERROR COUNTER TO -1 (MAX VALUE ) 

NDERPT sDISABLE € Y FUNCTI 

60$ ; NUMBER OF DATA ERRORS TO REPORT IS 0 

ERCNTB(R3),NDERPT ;COMPARE ERROR COUNT WITH 0 OF ERR‘S TO RPT 

60$ sSKIP SETTING OF SUMMARY FLAG IF NOT TOO MANY 

BITTBL(R3),ERSMRF ;SET “PRINT ERROR SUMMARY ” FLAG FOR LINE. 
sRESTORE GPRS. 

- JSR PC, @(SP)-+ sRETURN TO PREGOS SUBRT. 

0 sLOCAL STORAGE FOR ERROR OCCURRED FLAG. 


SEG 116 


N9 


-i1 FUNC TST PART4 MACRO M1200 15-MAR-84 09:48 PAGE 81 ¢ , 
bake SMBGob Fine - OOPS - =O it 
4479 .SBTTL GLOBAL SUBROUTINE o0Ps - 
4480 ;* ttAPseeeeeeeseesssessssennseessesrasnnansnrassneannnnanssansseasananacennes 
4481 PROGRAM ABORT SUBROUTINE 
4482 a THIS SUBROUTINE IS USED TO ABORT THE PROGRAM WHEN A FATAL ERROR IS 
448% si DETECTED IN THE PROGRAM OR THE HOST SYSTEM HARDWARE. AN ERROR MESSAGE 
4484 — IS PRINTED GIVING SOME INFORMATION ABOUT THE NATURE OF THE AScRT 
;* 
4466 4 INPUTS: R1 - ERROR CODE GIVING REASON FOR ABORT. 
4488 ‘* OUTPUTS: AN ERROR MESSAGE IS PRINTED. 
4069 A LIST OF RETURN PC VALUES FOR ALL SUBROUTINE CALLS IS PRINTED. 
44 
4491 ‘ CALLING SEQUENCE: JSR PC,00PS 
4493 COMMENTS: 
4494 ;4 
4495 ;# SUBORDINATE ROUTINES CALLED: NONE. 
4496 $-- SPRSEREEEEEEEEEEESEDEEESEEEEDEEAESEEEEEEAADEEEEARDEDADEDARDD ERDAS EERREEOOS 
4497 
4498 022024 OOPS:: SAVE :SAVE CONTENTS OF GPRS RO THRU RS. 
922024 004567 163274 JSR R5. PREGOS :CALL REGISTER SAVE SUBRT. 
4499 ; REPORT “HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED.” ERROR 
4500 022030 ERRSF 101.EM0101 
022030 104454 TRAP —s CSERSF 
022032 00014 .WORD 101 
022034 022070 "WORD EMO101 
022036 "WORD 
4501 ; REPORT “PROGRAM HUNG, WAITING FOR A CONTROL-C. « 
4502 022040 PRINTF @€MO102 
22040 012746 022154 MOV 9EM0102, -( SP) 
022044 012746 000001 MOV #1, -(SP) 
022050 010600 MOV SP‘ RO 
022052 104417 TRAP C$PNTF 
22054 062706 000004 ADD 64, SP 
4503 022060 2$: BREAK sLOOK FOR OPERATOR CONTROL-C INPUT. 
22060 104422 TRAP —s- CSBRK 
4504 022062 000776 BR 2% SINFINITE LOOP. 
4505 022064 60$: PASS s00N'T NEED THIS, BUT SOMEBODY MAY CHANGE THIS 
022064 004736 JSR PC, @(SP)- :RETURN TO PREGOS SUBRT. 
4506 022066 000207 RTS PC ; ROUTINE IN THE FUTURE, SO BE CONSISTANT. 
4508 022070 110 117 123 EMO101:: .ASCIZ /HOST COMPUTER HARDWARE OR SOFTWARE BUG ENCOUNTERED. / 
22073 124 040 103 
022076 117 115 120 
022101 125 124 105 
221 122 040 110 
022107 101 122 104 
022112 127 101 122 
022115 105 040 117 
022120 122 040 123 
022123 117 106 124 
022126 127 101 122 
022131 105 040 102 
21 125 107 040 
022137 105 116 103 
022142 117 125 116 
022145 124 105 122 


——— ee eee ieee ett i 


LiF 1ST PART4 
OBAL SI TINE 

022150 105 
022153 000 
4509 0221 045 
022157 101 
022162 117 
022165 101 
022176 110 
022173 107 
022176 127 
022201 124 

022 107 
022207 117 
022212 101 
022215 117 

222 122 
022223 055 
0222 040 
022231 052 
022234 052 
022237 052 
022242 052 
022245 045 

22 116 


4510 
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- OOPS - 


104 


EM0102:: .ASCIZ /sNSAPROGRAM HUNG, WAITING FOR A CONTROL -C. 


-EVEN 


610 


(006600608000 60NGN/ 


0223532 


022334 


Clbek? SHiholt ine?" 


004567 
016704 
005005 


012767 


104460 
012767 


005263 
010467 


004736 


C10 
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165046 
163034 


003302 
162744 


163030 


160150 


157662 


-SBTTL GLOBAL 


s*e COOPOOODOOOEDEEDSOOOOESDEEEEESOOSOERDEEEEEEEEEDEDEEEEEEEDOEEEEDESOCECeLOES 


3;@ 

3¢ ERROR BIT CLEAR. 

3;¢ 

3@ INPUTS: R2 - CONTAINS T 
34 ERRNBR ” E 
3* 

34 

s@ OUTPUTS: ERRBLK 

S 

a 

3° 

3° 

3@ CALLING SEQUENCE: JSR 
3° 

3@ COMMENTS: 

if 

3¢ . 


- PRFRME - 


S FRAMING E 


- PROCES RRORS - 
THIS SUBROUTINE IS USED IN THE FRAMING ERROR BIT TEST, TO VERIFY THaT 
ALL RECEIVED CHARACTERS HAVE THEIR FRAMING ERROR BIT SET AND PARITY 


HE CHARACTER READ FROM THE FIFO. 


RROR NUMBER OF ERRORS IN THIS ROUTINE. 
ERSMRF - “REPORT ERROR SUMMARY FOR LINE” FLAGS 


- THE CONTENTS OF THIS WORD ARE DESTROYED. 
ERCNTS - THE ERROR COUNT FOR 


THIS LINE IS UPDATED. 


MESSAGES MAY BE PRINTED AT THE OPERATORS CONSOLE . 


PC , PRFRME 


THIS ROUTINE REPORTS ERRORS WITH INITIAL NUMBER . 
ERRNBR IS RESTORED TO ITS INITIAL VALUE BEFORE THIS SUBROUTINE 


3* 
3# SUBORDINATE ROUTINES CALLED: ER6201. 


g-°- COAPOOODODAOSESOOESESEOOEEASEEEOEDEDDSEDEDAEDEDEREADDEDEDEREEEEOEDERSEEEEES 


PRFRME : : SAVE 


MOV 


JSR 
ERRNBR ,R4 
CLR RS 


sSAVE CONTENTS OF GPRS RO THRU RS. 

»PREGOS sCALL REGISTER SAVE SUBRT. 
sSAVE THE CONTENTS OF THE INITIAL ERROR NUMBER . 
sCLEAR ERROR/MESSAGE FLAGS. 


s* 
s TEST FRAMING AND PARITY ERROR BITS IN TURN. REPORT ANY ERRORS FOUND, IE. 
s FRAMING ERROR BIT CLEAR, OR PARITY ERROR BIT SET. 


63: 


108: 
603: 


MOV ER6201 , ERRBLK 
BIT nee 
BIS ®BIT1,RS 
SIT *BIT12,R2 
Q 8$ 
BIS 014,85 
TST RS 
Q 
BIT 


60% 
oe ),ERSMRF ,CHECK THE 


sSET UP THE ADDRESS OF THE ERROR ROUTINE. 
sCHECK ON STATE OF THE FRAMING ERROR BIT. 
sBRANCH IF FRAMING ERROR BIT SET. 

sSET REPORT FRAMING ERROR FLAG. 


IF ANY ERROR FLAGS SET. 
sEXIT IF ALL FLAGS CLEAR, 

ERROR SUMMARY FLAG FOR THIS LINE. 
:SKIP ERROR REPORT IF ERROR SUMMARY FLAG SE’, 


bo sa ERROR “CHARACTER RECEIVED WITH PARITY/FRAMING ERROR BIT SET”, 
RROR ‘ 


MOV @1.F ERROR 
INC ERCNTBC(RS) 
MOV R4, ERRNBR 
PASS 
JSR 


>>>>> ERROR <cccc, 
TRAP 


s INDICATE AN ERROR HAS BEEN DETECTED, 


ts INCREMENT ERROR COUNT FOR THIS LINE. 
sRESTORE ERROR NUMBER. 

sRESTORE GPRS, 
PC, a( SP). 


CsERROR 


sRETURN TO PREGOS Su6RT, 


DM Li FUNC TST PARTS 
GLOBAL StBROUT INE 


4566 022554 000207 
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- PAFRME - 


RTS PC 


D10 


GLOBAL 5 


4617 
4618 
4619 
4 


022440 
022446 


620 022454 
621 


4622 


TST PART4G 


OUT INE 


004567 
016746 
005005 


012767 
032702 
002 


104460 


E10 
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 eOPRPARE so 


162/42 
162730 


000001 
000100 


162724 


160044 


157556 
157506 


-SBTTL GLOBAL SUBROUTINE - PRPARE - 


see OPOOSSEESSESESEESSOOSEEEEESEEOEEEESREODEEEEREDEDEOEREEREEEREEEEEESLEEEESEES o 


3¢ - PROCESS PARITY ERRORS - 
3° THIS SUBROUTINE IS USED IN THE PARITY ERROR TEST, TO VERIFY THAT 
34 ALL RECEIVED CHARACTERS HAVE THEIR PARITY ERROR BIT SET AND FRAMMING 
:4 ERROR BIT CLEAR. 
34 
3* INPUTS: Re - CONTAINS THE CHARACTER READ FROM THE FIFO. 
34 RS - CONTAINS 2 « LINE NUMBER OF THE READ CHAR. 
34 ERRNBR - ERROR NUMBER OF ERRORS IN THIS ROUTINE 
;¢ ERSMRF - “REPORT ERROR SUMMARY FOR LINE” FLAGS 
34 FERROR - “AT LEAST ONE ERROR FOUND” FLAG 
3* 
s# OUTPUTS: ERRBLK - THE CONTENTS OF THIS WORD ARE DESTROYED. 
34 ERCNTB - THE ERROR COUNT FOR THIS LINE IS UPDATED. 
;¢ MESSAGES MAY BE PRINTED AT THE OPERATORS CONSOLE. 
34 
34 
3* CALLING SEQUENCE: JSR PC ,PRPARE 
3*¢ 
3* COMMENTS: THIS ROUTINE REPORTS ERRORS WITH INITIAL ERRNBR THRU ERRNBR>+1, 
;4 aati TS RESTORED TO ITS INITIAL VALUE BEFORE THIS SUBROUT INE 
3* . 
:* THE CONTENTS OF THE ERRBLK ARE DESTROYED. 
3% 
3* SUBORDINATE ROUTINES CALLED: ER9002,ER6201. 
t-- SAPPPRAEDEEESESEEEEEREDSESOSEDAEREEEREDEDEDEDEEAEDEDD ORDERED EDEREREAREOOOOS 
PRPARE : : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV ERRNBR, -( SP) sSAVE THE CONTENTS OF THE INITIAL ERROR NUMBER. 
CLR RS sCLEAR ERROR/MESSAGE FLAGS. 


3° 
; TEST FRAMMING AND PARITY 
; PARITY ERROR BIT CLEAR, 
g = 


ERROR BITS IN TURN. REPORT ANY ERRORS FOUND, IE. 
OR FRAMMING ERROR BIT SET. 


MOV ER6201,ERRBLK ;SET UP THE ADDRESS OF THE ERROR ROUTINE. 
BIT BIT12,R2 sCHECK ON STATE OF THE PARITY ERROR BIT. 
6$ sBRANCH IF PARITY ERROR BIT = 
BIS *BIT3.R5 sSET REPORT PARITY ERROR FLAG. 
6$: BIT @BIT13,R2 sCHECK ON THE STATE OF THE FRAMMING ERROR BIT, 
BEQ 8% sBRANCH IF FRAMMING ERROR BIT CLEAR. 
BIS 63,R5 sSET REPORT “FRAMMING ERROR SET” FLAGS. 
83; TST RS sCHECK IF ANY ERROR FLAG : 
BEG $ i -4 TO MAKE DATA CHECK IF ALL FLAGS CLEAR, 
BIT BITIBLCR3),ERSMRF ;CHECK THE SUMMARY FLAG FOR THIS LINE. 
14$ : ;SKIP ALL ERROR REP IF IN ERROR SUMMARY MODE , 
sREPORT ERROR “CHAR RECEIVED WITH PARITY/FRAMMING ERROR BIT SET/CLEAR’. 
3 >>>>> ERROR <cccc, 
TRAP CSERROR 
MOV #1,F ERROR sINDICATE AN ERROR HAS BEEN FOUND. 
BIT #BITO6 ,OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEQ 18% sEXIT IF IT HASN'T, 


3;* 


SEG i2! 


64 

4644 022552 
4645 022556 
4646 


4647 022562 
022562 
4646 022564 


OcbeAl Stout ine "4 


052704 
012701 
012767 


104460 
012767 


005263 
012667 


004736 
000207 


F10 
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3 COMPARE ACTUAL DATA WITH EXPECTED DATA TO CHECK FOR MULTIPLE ERRORS. 


3 
162634 12%: 
003402 


177400 
100000 


002364 
002364 


157766 
157762 


14$: 
162560 


157452 


163: 
18%: 


60$: 


INC 
MOV 


ERRNBR s INCREMENT ERROR NUMBER. 

RXPTRBCR3),R4 sGET THE POINTER TO THE EXPECTED DATA. 

(R4),R4 sGET THE EXPECTED DATA. 

#177400,R4 sCLEAR THE UPPER BYTE. 

R2,R4 sCOMPARE ACTUAL AND EXPECTED DATA. 

18$ sSKIP ERROR REPORT IF DATA CORRECT. 

@BIT15,R4 sCLEAR “NONE” EXPECTED MESSAGE FLAG. 
BITTBLCR3),ERSMRF ;CHECK THE ERROR SUMMARY FLAG FOR THIS LINE. 
16% sSKIP ERROR REPORT IF ERROR SUMMARY FLAG wel. 
BITTBL(RS),RXDONF ; CHECK FOR RECEPTION COMPLETE ON THIS LINE. 
14§ sSKIP SETTING NONE EXPECTED FLAG. 

®BIT15,R4 sSET “NONE” EXPECTED MESSAGE FLAG. 

#EM9008 ,R1 sSELECT ERROR MESSAGE TO BE REPORTED 


%ER9002 , ERRBLK 
ERROR”RECEIVE CHARACTER MISCOMPARE ” 


TRAP CSERROR 
s INDICATE AN ERROR HAS BEEN FOUND. 


#1,FERROR 
ERCNTB(R3) s INCREMENT ERROR COUNT FOR THIS LINE. 
(SP )+ ,ERRNBR sRESTORE ERROR NUMBER. 
sRESTORE GPRS. 
ee JSR PC,@(SP)- sRETURN TO PREGOS SUBRT. 


SEG lZe? 


G10 


a T “ - . : Pp “cO 1 
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4650 -SBTTL GLOBAL SUBROUTINE - PRTLPR - 

4651 see COPOOOOSOOOOSEESSSEOOSESESSEDOSEDOSEEEEEEDOOREEEEADEEEDEDEEEOOEDEEROLEEEES 

4652 pe -PRINT THE CONTENTS OF THE LPR. 

4655 :° THIS ROUTINE IS USED TO PRINT OUT EXTENDED INFORMATION ON THE 

pen 3¢ CONTENTS OF THE LINE PARAMETER REGISTER (LPR). 

46 3° 

4656 3¢ INPUTS: RS - CONTAINS THE NUMBER OF THE LINE YOU WISH TO EXAMINE. 

4657 3° CSRA - CONTAINS THE ADDRESS OF THE Out's CSR. 

4658 34 IESTAT - CONTAINS THE CURRENT STATUS OF THE TX AND RX INTERRUPT 

4659 3¢ ENABLE BITS IN THE DUT‘S CSR. 

saat s4 LPRA - CONTAINS THE ADDRESS OF THE DUT'S LPR REGISTER. 

66 34 

4662 3* OUTPUTS: AN EXTENDED INFORMATION MESSAGE IS PRINTED ON THE OPERATORS 

4665 34 CONSOLE . 

4664 ;* 

yo 3# CALLING SEQUENCE: JSR PC,.PRILPR 

34 
4667 3* COMMENTS: THIS ROUTINE CHANGES THE INDIRECT ADDRESS FIELD OF THE DEVICE 
4aa3 ;* UNDER TEST’S CSR. 

34 

4670 3* SUBORDINATE ROUTINES CALLED: NONE. 

4671 t-- SPPOROOEOSEESEEEOODEEEESEESEREEEDEEREERDDOEDEDEREEREREEEREEEDDEOREEESALOO‘CS 

4672 

4673 022566 PRILPR: : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 

022566 004567 162532 JSR RS ,PREGOS s;CALL REGISTER SAVE SUBRT. 

4674 022572 016701 157402 MOV CSRA,R1 ;GET THE CSR ADDRESS. 

4675 022576 016702 157402 MOV LPRA,R2 ;GET THE LPR ADDRESS. 

4676 022602 042703 177760 BIC €177760,R3 sCLEAR ANY UNWANTED BITS. 

4677 022606 056703 157422 61S IESTAT,RS sSET STATE OF TX AND RX INTERRUPT ENABLE BITS, 

4678 022612 010311 MOV R3,(R1) sSELECT LINE. 

4679 022614 011204 MOV CR2),R4 3GET CONTENTS OF THE LPR, 

4680 sPRINT MESSAGE “CONTENTS OF THE LPR:NNNNNN” 

4681 022616 PRINTX EF 9019, 0EM9026,R4;PRINT OUT MESSAGE ON OPERATORS CONSOLE. 
022616 010446 MOV R4,-(SP) 
022620 012746 0612075 MOV 9EM9026, -( SP) 
022624 012746 007206 MOV GEF 9019, -( SP) 
022630 012746 000003 MOV 03, -(SP) 
022634 010600 MOV SP ,RO 
022636 104415 TRAP CSPNTX 
022640 062706 000010 ADD #10,S° 

4682 022644 605; PASS sRESTORE GPRS, 

22644 004736 JSR PC,a(SP)- sRETURN TO PREGOS SUBRT, 


0 
4685 022646 000207 RTS PC 


Dr 11 FUNC TST PARTS 
GLOBAL Si BROUT INE 


022710 
022714 


022724 


022726 
022726 


022750 


004567 
012701 
016704 


011402 
100016 


H10 
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162450 
001000 
157316 


070000 


001644 


-SBTTL GLOBAL SUBROUTINE - PUFIFO - 


5 OOOO ROO OO OOOO OOOEEOOOOOSESESESS +8800 00000bEoeEEEEEEEERNEEEEDEESEESEEOCOEEC‘S 
;¢ - PURGE THE FIFO 
36 THIS ROUTINE TRIES TO REMOVE ALL THE CHARACTERS FROM THE FIFO. 
oi ANY BMP CODES THAT ARE FOUND ARE SAVED ON THE BMP CODE QUEUE. 
. 


RBUFA- CONTAINS THE ADDRESS OF THE RECEIVER, 

CARRY BIT - INDICATES THE STATE OF THE FIFO, SET:= PURGED. 
BMPCQ - THE CONTENTS OF THE BMP CODE QUEUE MAY BE UPDATED. 
PC ,PUFIFO 


;¢ 
s# OUTPUTS: 
3;* 


7 

;# CALLING SEQUENCE: JSR 
;* 

3* COMMENTS: 

34 

3* SUBORDINATE ROUTINES CALLED: SAVBMP. 


3 SPARESEROSAERESEESESAEOEEASEOSEEREDEDEDEERDALEDEEERRADDDDDREEERDDEEOEESELELES + 


PUF IFO: : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV #512.,R1 sSET MAXIMUM TRY COUNT OF 512. 
MOV RBUFA,R4 sGET ADDRESS OF THE RECEIVER BUFFER REGISTER, 
2s: MOV (R4),R2 
BPL 6$ 


sGET THE CONTENTS OF THE RECEIVER BUFFER REG. 
sEXIT IF THE FIFO IS EMPTY, DATA_VALID CLR. 


3* 
; CHECK IF THE READ CHARACTER IS ACTUALLY A BMP CODE . 
s IF IT IS, THEN SAVE IT ON THE BMP CODE QUEUE TO BE REPORTED LATER. 


iat MOV #70000, RO ;GENERATE A BIT MAP OF CHAR ERROR BITS 
BIC R2,RO ; WHICH ARE NOT SET FOR CHAR. 
BNE 4$ sTHROW CHAR AWAY IF NOT BMP OR SELFTEST CODE. 


* 
; CHECK IF THE READ DATA IS MODEM STATUS » BMP OR SELFTEST?. 


MOV #301,R0 3; CHECK IF BMP, 

BIC R2,RO sTRY TO CLEAR BMP FLAGS IN THE READ DATA. 

BNE 4% sIF If IS MODEM OR SELFTEST CODE THROW IT AWAY, 
JSR PC, SAVBMP sSAVE BMP CODE ON THE QUEUE. 


4$: DEC Ri sDECREMENT THE TRY COUNT, 
BNE 2s sLOOP TO TRY AGAIN. 
CLC sCLEAR CARRY,TO INDICATE FIFO NOT PURGED. 
BR 60% sEXIT WITH CARRY CLEAR. 
6%: SEC sSET CARRY, TO INDICATE FIFO PURGED, 
603; PASS sRESTORE GPRS, 
JSR PC,a( SP )-+ sRETURN TO PREGOS SUBRT, 
‘“e | pr sCARRy BIT, SET INDICATES FIFO PURGED, 
) 


StG 124 


[10 


Oak! “Miho # ie MR'4 —ACRO M1209 | 45 MAR 86 09:48 PAGE Be 
4°86 .SBTTL GLOBAL SUBROUTINE - PUFIFR - 
é "he PURE Sabbah eeh nner pate TT TT TTT TT TTT TTT TTT TTT Terre 
4°8° 3 - PURGE FIFO REPORT ANY ERRORS FOUND. 
48a a THIS ROUTINE REMOVES ALL DATA FROM THE FIFO. ANY BMP CODES THAT ARE 
4°89 ‘a FOUND ARE SAVE ON THE QUEUE TO BE REPORTED LATER IN THE BMP REPORT TEST. 
4°40 a ANY UNXEPECTED DATA CIE ANY NON-STATUS INFORAMTION) THAT ARE Food), 
476i a ARE REPORTED AS AN ERROR. 
44. om If THE FIFO WILL NOT PURGE AFTER S12 ATTEMPTS, THEN THE CURRENT TEST 
474% en TWAT CALLED THIS ROUTINE RECEIVES A FAILURE FLAG THAT SHOUD Oe cen 
4744 30 TO ABORT THE TEST. 
474 ° 
4746 ;@ INPUTS: EPRTBL - ERRTYPE, ERRMSG, ERRNBR ARE SET UP CORRECTLY. 
4747 ir RBUFA- CONTAINS THE ADDRESS OF THE RECEIVER. 
4748 @ 
4749 :@ OUTPUTS: CARRY BIT - ABORT TEST FLAG, CLR = ABORT TEST, SET = ox. 
4750 6 ERRBLK - VALUE WILL BE DASTROYED. 
4781 ae BMPCQP - THE BMP CODE QUEUE POINTER MAY BE UPDATED. 
4752 a THE CONTENTS OF THE BMP CODE QUEUE MAY BE UDATED. 
4” ;¢ 
4754 3@ CALLING SEQUENCE: JSR PC,PUFIFR 
4a & 
4756 5@ COMMENTS: THIS ROUTINE REPORTS ERRORS WITH NUMBERS INITIAL ERRNBR 
4757 * THRU TO ERRNBR.2. 
4758 oa THE ERRNBR IS RESTORED TO ITS INITIAL VALUE BEFORE RETURNING. 
4a 3¢ 
4760 s# SUBORDINATE ROUTINES CALLED: ER1603,ER9001,ER9002,SAVEMP. 
4761 b OOODORSOOEOEEEESESSESOSEOESEDOSELEDEEEEEDEDOEEEDEDERDRDEEEDEEEDEEDEDESEEESOCCE 
4762 
4768 022732 PUF IFR: : SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
22732 004567 152366 USR RS, PREGOS ;CALL REGISTER SAVE SUBRT. 
4764 022736 016746 162354 MOV ERRNBR.-(SP) SAVE THE CONTENTS OF THE ERROR NUMBER 
4765 022742 012705 001000 MOV 0512. .RS sSET MAXIMUM READ COUNTER TO 2eFIFO SIZE. 
| Tid 
476? s READ DATA FROM THE FIFO UNTIL DATA VALID IS CLEAR OF READ COUNTER IS ZERO. 
4768 ; REPORT AMY BMP OR UNEXPECTED DATA AS ERRORS. 
4770 022746 017702 157230 28: MOV = @RBUFA.R2 GET THE CONTENTS OF THE RECEIVER BLFFER REG. 
4771 022752 100068 SPL 8s sEXIT IF DATA VALID CLEAR, IE. FIFO PURGED. 
| 
ashe 3 CHECK IF READ DATA IS STATUS OR UNEXPECTED CHARACTER. 
4775 022754 012700 070000 : MOV _—- 870000. RO ;GENERATE A BIT MAP OF CHAR ERROR BITS 
4776 022760 040200 BIC  R2.RO ; WHICH ARE NOT SET FOR CHAR. 
4777 022762 001012 BNE 43 sSKIP BMP CHECK IF IT IS UNEXPECTED DATA. 
3? 
4779 : CHECK iF THE READ DATA IS MODEM STATUS , BMP OR SELFTEST?. 
4780 ; IF IT IS A BMP CODE THEN SAVE IT ON THE QUEUE. 
3 : 
4782 022764 012767 014420 162350 MOV = @ERSOO1,ERRBLK SET UP THE CORRECT ERROR REPORTING ROUTINE. 
4788 022772 012700 000300 MOV @300,RO. ; CHECK IF BMP OR SELFTEST?. 
4784 022776 080200 BIC R2,R0 sTRY TO CLEAR BMP FLAGS IN THE READ Dara. 
4785 0238000 001008 BNE as sSKIP BMP ERROR REPORT IF MODEM OR SELF TEST?. 
4786 023002 004767 001552 JSR PC, SAVBMP ;SAVE THE BMP CODE ON THE QUEUE. 
4787 023006 000430 BR 65 ;BRANCH TO CHECK READ COUNT. 
4789 ; CHECK IF THE READ DATA IS MODEM, SELFTEST OR UNEXPECTED DATA, 


4790 : 


OCO8A! StBAoUt ine "4 


023074 
023102 
025110 


023114 
0235114 


023122 
023124 
023130 


e 
023132 


032702 


005267 
012767 
104460 


052767 
001415 


005367 


005305 
001325 


062767 
012767 
012701 


104460 
000241 
000401 
000261 
012667 


004736 


000207 
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000001 4$: BIT ®BITO.R2 
BEG 6$ 
012466 MOV 9EM9104 .R1 
MOV R2.R3 
SWAB R3 
177760 BIC 177760,R3 
ASL R3 
100000 BIS @BIT15,R4 
162252 INC ERRNBR 
014520 162250 MOV 
sREPORT 
ERROR 
; EXIT WITH 
000100 157100 BIT #BITO6 ,. OPTION 
BEG 7$ 
162226 DEC ERRNBR 
6%: DEC RS 
BNE 2s 
3° 
; THE FIFO w 
; BE ABORTED 
g- 
000002 162214 ADD 2, ERRNBR 
014070 162212 MOV 0ER1603, eae 
011670 MOV E€M9017,R1 
sREPORT THE ERROR “FIFO 
3 
ERROR 
78: cic 
BR 10$ 
83: SEC 
162166 108: MO (SP)+ ERRNBR 
60%: PASS 
JSR 
RTS PC 


®ER9002 , ERRBLK 
ERROR “UNEXPECTED DATA FOUND IN FIFO”, 


; IF MODEM STATUS. 
sPASS THE CORRECT ERROR MESSAGE TO REPORT. 
sEXTRACT THE LINE NUMBER FROM 

. THE READ DATA. 


;FORM LINE NUMBER TIMES 2 FOR ER9002 ROUTINE. 
sSET THE “NONE” EXPECTED MAESSAGE FLAG. 

TO INTIAL ERRBR+1 

ERROR REPORTING. ROUTINE . 


i >>>>> ERROR <cccec, 
TRAP 


3 NUMBER 
;SELECT THE CORRECT 


CSERROR 


FAILURE IF EXTENDED ERROR REPORTING HAS NOT BEEN ENABLED 


sEXIT WITH TEST FAILURE MESSAGE IF 
sNO EXTENDED ERROR REPORTING HAS 
s;DURING THE SOFTWARE QUESTIONS. 


sRESTORE ERROR NUMBER TO INTIAL ERRNBR. 


sDECREMENT READ COUNTER 
sLOOP TO READ NEXT CHAR FROM FIFO IF COUNT > O, 


BEEN REQUESTED 


ILL NOT CLEAR, REPORT THE ERROR AND INDICATE THAT THE TEST IS TO 


ERROR NUMBER TO INTIAL ERRNBR> 2. 

S SELECT THE CORRECT ERROR REPORTING ROUTINE, 
sPASS THE MESSAGE TO BE REPORT ED. 

WILL NOT PURGE, (DATA VALIO STUCK SET)” 
“22222? TEST ABORTED” 

3 >>>>> "ERROR ceed, 


TR CSERROR 
s INDICATE THE TEST IS TO BE ABORTE 
sEXIT THIS ROUTINE AND ABORT THE CURRENT TEST, 


sSET THE CARRY, DO NOT ABORT THE TEST. 
sRESTORE INITIAL ERROR NUMBER, 
ORE GPRS, 


;REST 
PC .@(SP)> sRETURN TO PREGOS SUBRT. 


sCARRY BIT, SET INDICATES FIFO PURGED, DO NOT 
; ABORT THE TEST 


sSET E 


Ccbek! SHBiRodt ine *'4 


4866 


56 
023162 


023164 
23164 
023166 


004567 
012701 


0050 
020127 
101774 


004736 
000207 
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-SBTTL GLOBAL SUBROUTINE PURRXB - 


see OPAPLEELASELESESEESESESEDESEESEOESEEEEEESEODEAAEEDEDEDDEDEDEREEEDADESEALOE‘S 


34 - PURGE THE RX BUFFER IN MEMORY ROUTINE - 

34 THIS SUBROUTINE IS USED BEFORE THE BEGINNING OF A TX/RX OF DATA 
34 PATTERNS TO CLEAR OUT THE RX BUFFER AND TO INITIALIZE THE VARIOUS 
:* COUNTERS AND POINTERS RELATED TO THAT BUFF R. 

3* 

s* INPUTS: RXBSTA - LABEL AT THE BEGINNING OF THE Rx BUFFER. 

;* 

3# OUTPUTS: RXBCNT - COUNT OF @ OF CHARS IN RX BUFFER (CLEARED). 

34 RXBIPT - INPUT POINTER TO RX BUFFER CINITIALIZED). 

34 RXBOPT - OUTPUT POINTER TO RX BUFFER CINITIALIZED). 

34 THE CONTENTS OF THE RX BUFFER ARE CLEARED. 


© 
3# CALLING SEQUENCE: JSR PC ,PURRXB 


a 

3* COMMENTS: 

34 

3* SUBORDINATE ROUTINES CALLED: NONE. 


$-- CAREER EEESERESEAEEEORESESEERASERESOEAEAEAAERRARAEEDDDAERERDERRRDRRELEREES 


PURRXB:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS .PREGOS s;CALL REGISTER SAVE SUBRT. 


MOV ORXBOPT ,R1 sGET THE ADDRESS OF THE RX OUTPUT POINTER. 
MOV ORXBSTA,CR1)> sINITIALIZE THE RX BUFFER OUTPUT POINTER. 
MOV ORXBSTA,(R1)-+ sINITIALIZE THE RX BUFFER INPUT POINTER. 
2s: CLR (R1)> sCLEAR CHAR COUNT AND THE BUFFER AREA. 
CMP sCHECK IF LAST LOCATION HAS BEEN CLEARED. 
BLOS 2$ sLOOP IF NOT DONE. 


60$: PASS sRESTORE GPRS. 
JSR PC,@(SP)- 
RTS PC 


sRETURN TO PREGOS SUBRT, 


, ‘ 


OCA! SHBRod# ine?" 


4901 023170 


4920 023236 
4921 023242 
4922 023250 
4923 023252 


004567 
016704 
eae lee 


00506 
004767 
004767 


012701 
012702 
005021 
020102 
103775 


016701 
026767 
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-SBTTL GLOBAL SUBROUTINE 


;¢+*¢ OPPOSES SSELESEEESEESESESESSEOESEDDOSEDESEEEEDAEEEDEDDEEDEEEEEEEESEDESOOESS 


34 - READ AND COMPARE INPUT CHARACTERS ROUTINE - 

34 THIS SUBROUTINE READS THE CHARACTERS FROM THE RX BUFFER IN MEMORY . 

346 IF CHARACTERS STOP APPEARING IN THE BUFFER WITH DATA.VALID SET 

3¢ OR IF MORE THAN THE ALLOWABLE NUMBER OF CHARACTERS HAS BEEN READ FROM 
34 THE BUFFER THIS ROUTINE EXITS WITH AN RX COMPLETE INDICATION. 

3* EACH READ CHAR IS ANALYZED AND ANY NECESSARY ERRORS ARE REPORTED. 

3* 

3# INPUTS: ACTLNS - BIT MAP OF THE ACTIVE DUT LINES. 

34 ERRNBR - SET TO ERROR NUMBER OF FIRST ERROR IN THIS ROUTINE. 
34 I6M - MASK OF THE INACTIVE BITS IN A Tx OR RX CHAR BYTE. 

34 OSTEND - ADDRESS OF THE END OF THE OUTPUT STORAGE FIFO BUFFER. 
34 OSTPTR - POINTER TO THE NEXT BYTE TO READ FROM OSTORE. 

34 RXBOPT - POINTER INTO THE RX CHAR BUFFER IN MEMORY. 

34 RXTOUT - TIME-OUT VALUE FOR RX OF LAST CHAR. 


* 
3# OUTPUTS: ERROR 


MESSAGES MAY BE PRINTED AT THE OPERATOR'S CONSOLE . 


34 TXDBLF - TX/RX DISABLED FLAG (CLEARED). 
34 TXENBM - TX.ENABLE STATE MASK (DESTROYED). 
pa SAVPRI - STORAGE FOR PROCESSOR PRIORI, Y (DESTROYED). 


‘ 
3* CALLING SEQUENCE: 
£ 


JSR 


PC ,ROCHRS 


3;* COMMENTS: THIS ROUTINE REPORTS ERRORS WITH NUMBERS INITIAL ERRNBR 
. THRU INITIAL ERRNBR + 4, 

34 ERRNBR IS RESTORED BEFORE THIS ROUTINE RETURNS. 

3% 


;* SUBROUTINES CALLED: SATO Re CTR REPCOO,RXIEO,RXIE1, TXENBL , TXIEO, TXIEL, 
* Wl ‘ 


s-- AAPEEERPREEREDEDEDOEEDEDEEEASOREDEDSODALADDDEADEDEEDEDREEEERDERERREDEDLLLS 


RDCHRS:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
162150 RS , PREGOS sCALL REGISTER SAVE SUBRT. 
162116 MOV ERRNBR ,R4 sPRESERVE THE INITIAL ERROR NUMBER. 
157026 MOV I6M,R3 sGET THE INACTIVE BIT MASK. 
157276 CLR TXDBLF sCLEAR THE TX DISABLED FLAG. 

1 JSR PC ,RXIE1 sTURN ON DUT RECEPTION INTERRUPTS. 

002440 JSR PC, TXI€1 sTURN ON DUT TRANSMISSION INTERRUPTS. 

3 

s CLEAR ALL RESYNC QUEUES FOR ALL LINES. 

| ied 
004642 MOV #OPRSQB ,R1 sGET BASE ADDRESS OF RESYNC QUEUES TABLE. 
005042 MOV #DPRSOQE ,R2 sGET END ADDRESS OF RESYNC QUEUES TABLE. 

2s; CLR CML Ie. sCLEAR A WORD OF THE T ; 

CMP Ri ,Re2 sCHECK IF POINTER AT END OF TABLE. 
BLO 2s sLOOP UNTIL TABLE IS CLEAR, 

3;* 

; WAIT FOR A CHARACTER TO APPEAR IN THE FIFO. 

; IF NO CHARACTER APPEARS WITHIN TIME-OUT PERIOD: EXIT ROUTINE, WE'RE DONE. 

3 
157004 4$: MOV RXTOUT ,R1 sGET TIME-OUT FOR SLOWEST BAUD RATE IN USE. 
157234 156722 CMP TXDONF,ACTLNS ;CHECK FOR TRANSMISSION DONE ON ACTIVE LINES, 

BEG 6$ sSKIP ADDING 5O MS DELAY IF TX DONE ALL LINES. 

000062 ADD #50, ,R1 sADD 50 MILLI SEC TO DELAY IF NOT LAST CHAR. 


Sek! Sol fae" 


023256 
023262 


023266 

023272 

4929 023274 
30 


103117 
004767 


026727 
101013 


104440 
010001 


012700 
104441 
004767 
005067 


012701 
012767 


104460 
012767 
000477 


012700 
040200 
001016 
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170000 
157424 
003520 


175154 


157202 
157404 
001212 
156734 
157364 


000340 


002054 
157126 


161720 
012001 
014032 


070000 


000020 


000020 


161712 


156604 


PAGE 88-1 
6$: BIS #170000,R1 
MOV RXBOPT .R2 
JSR PC,WAIBIS 
scc $ 
JSR PC ..GETCHR 


RE-ENABLE RX 
IF THE BUFFER 


$: TST 


10%: 


MOV 
MOV 
MOV 


CAN ACCOMODATE 
TXOBLF 

10$ 
RXBCNT , ORXBE TX 
10$ 


Ri 


9EM9025 ,R1 
#EROSOS , ERRBLK 


:INDICATE TO TEST DATA.VALID SIT. 
sINDICATE TO CHECK MEMORY RECEIVE 
sWAIT FOR RECEIVED CHAR OR TIME-OU 
sEXIT ROUTINE IF TIME-OUT, WE'RE DONE. 


,oren. 


sREAD A CHARACTER FROM THE MEMORY BUFFER. 


CHECK IF THE TX ISR IS DISABLED. 
ISR IF THE SPACE FOR NEW CHARS IS LOW & 


NOUGH. 
MORE CHARS THEN RE-ENABLE TRANSMISSION. 


sCHECK IF TX IS DISABLED. 


sSKIP RX/TX CHECK IF TX NOT DISABLED. 


sCOMPARE BUFFER COUNT WITH Se be ENABLE Rx. 


;SKIP ENABLE RX IF BUFFER TOO 
sENABLE RECEPTION INTERRUPTS. 

sGET THE PRESERVED TX.ENABLE STATES. 
sCOMPARE BUFFER 
;SKIP ENABLING TX IF BUFFER TOO 

sSAVE THE CURRENT PROCESSOR PRIORITY. 


. 
; REPORT ERROR AT INITIAL ERRNBR. 
; “MORE THAN TWICE THE EXPECTED NUMBER OF CHARACTERS RECEIVED. ” 


‘ERROR 


MOV 
BR 


#1,FERROR 
60% 


3 
; DETERMINE IF THE CHARACTER IS 


3 
12%: MOV 
BIC 


3 * 
; THE DATA IS EITHER A BMP 
; REPORT THAT THE CODE WAS F 


#70000 ,RO 
R2,RO 


CODE 
OUND 


TRAP CSGPRI 
MOV RO,R1 
;DISABLE INTERRUPTS. 
MOV OPRIO7,RO 
TRAP CSSPRI 
;ENABLE TRANSMISSION. 
;CLEAR THE TX DISABLE FLAG. 
;RE-ENABLE INTERUPTS. 
MOV Ri,RO 
TRAP CSSPRI 
sDECREMENT THE TOTAL CHAR COUNTER. 
;SKIP ERROR IF NOT TOO MANY RECEIVED. 
;SET ERROR NUMBER TO INITIAL ERRNBR., 
sSELECT THE PROPER ERROR MESSAGE. 
sSELECT THE PROPER ERROR REPORT ROUTINE. 
: >>>>> ERROR <<cc<, 
RAP CSsERROR 


T 
sINDICATE THAT AN ERROR HAS BEEN FOUND. 
sEXIT THE ROUTINE, WE'RE GIVING UP, 
DATA OR A STATUS CODE. 


COUNT WITH LEVEL TO ENABLE Tx. 
FULL. 


sGENERATE A BIT MAP OF CHARACTER arten BITS 


s_ WHICH ARE NOT SET FOR THE CHARACT 
sSKIP REPORTING 
OR A MODEM STATUS CODE. 


; ERRORS REPORTED WITH ERROR NUMBERS >>>>> ERRNBR+1 AND ERRNGR+2 <<<cc, 


OF ERROR CODE IF WE HAVE CHAR. 


St Q Les 


N10 


LF TST PARTS MACRO M1200 15-MAR-84 09:48 PAGE 88-2 40 
Crbeat sols - ROCHRS - mee Ie 
4974 023432 910467 161660 MOV R4,ERRNBR ;GET THE ERROR NUMBER PASSED INTO THIS ROUTINE. 
4975 023436 005267 161654 INC ERRNBR ;SET ERROR NUMBER TO INITIAL ERRNBR+1. 
4976 023442 004767 000222 JSR PC,.REPCOD sREPORT THE BMP OR MODEM STATUS CHANGE CODE. 
4978 023446 005767 156552 TST FERROR sHAS AN ERROR BEEN DETECTED ? 
4979 023452 001423 BEQ 16$ ;NO, THEN BRANCH. 
023454 032767 000100 156500 BIT @BITO6.OPTION  ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED. 
4961 023462 001456 BEQ 60$ sYES, THEN EXIT WITH TEST FAIL MESSAGE. 
4963 023464 000416 BR 16$ ;BRANCH TO GET THE NEXT CHARACTER. 
3* 
4985 ; THE DATA IS A VALID CHARACTER: 
4986 ; COMPARE THE READ DATA WITH THE EXPECTED DATA. 
4987 ; UPDATE EXPECTED DATA POINTER. 
rt + ; ERRORS REPORTED WITH ERROR NUMBERS >>>»>> ERRNBR+3 AND ERRNBR+G <cce<. 
g- 
4990 023466 010467 161624 14$: MOV R4,ERRNBR sCALCULATE THE STARTING ERROR NUMBER FOR THE 
4991 023472 062767 000003 161616 ADD #3 .ERRNBR ; NEXT ROUTINE CALL (INITIAL ERRNBR+3). 
4992 023500 004767 176010 JSR PC ,NEWCHR sHANDLE THE NEW DATA CHARACTER. 
4993 023 005767 156514 TST FERROR sHAS AN ERROR BEEN DETECTED ? 
4994 023510 001404 BEQ 16$ ;NO, THEN BRANCH. 
4995 023512 032767 000100 156442 BIT @B8IT06,OPTION ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED. 
4996 023520 001437 BEQ 60$ sYES, THEN EXIT WITH TEST FAIL MESSAGE. 
3* 
4998 ; DONE PROCESSING THIS CHARACTER. 
4999 ; READ ANOTHER CHAR FROM THE DUT FIFO. 
5000 s IF DATA.VALID IS SET, LOOP TO CHECK THE RECEIVED CHARACTER. 
5001 s IF DATA.VALIO IS CLEAR LOOP TO WAIT FOR IT SET OR TIME-OUT. 
= 
5003 023522 004767 174726 16$: JSR PC,GETCHR sREAD A CHARACTER FROM THE RX BUFFER. 
5004 023526 103664 BCS 8$ sIF DATA.VALID SET, GO TO CHECK THE RX CHAR. 
3008 023530 000642 BR 4$ sLOOP TO WAIT CHAR OR TIME-OUT IF BUFFER EMPTY. 
3* 
99d s USE DUMMY CHARACTERS TO FORCE ANALYSIS OF CHARACTERS IN RESYNC QUEUES. 
'* 
5009 023532 004767 000736 18$: JSR PC ,RXIEO sTURN OFF DUT RX INTERRUPTS. 
5010 023536 004767 001462 JSR PC, TXDONE sCHECK IF TX DONE, TURN OFF DUT TX INTERRUPTS. 
5011 023542 005002 CLR sCLEAR THE DUMMY CHARACTER. 
5012 023544 005001 CLR R1 ;CLEAR THE LOOP COUNTER. 
3015 023546 004767 175742 208: JSR PC ,NEWCHR sFORCE ONE RESYNC QUE CHAR TO BE ANALYZED. 
5015 023552 005767 156446 TST FERROR sHAS AN ERROR BEEN DETECTED ? 
5016 023556 001404 Q 22% ;NO, THEN BR : 
3017 023560 032767 000100 156374 BIT #8ITO6,OPTION  ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED. 
3018 23566 001414 Q 60% sYES, THEN EXIT WITH TEST FAIL MESSAGE. 
5020 023570 062702 000400 22s: ADD 9400,R2 sINCREMENT THE LINE NUMBER IN THE DUMMY CHAR. 
$021 023574 005201 INC 1 ; INCREMENT THE LOOP COUNTER. 
5022 023576 120127 000020 CMPB) = R1, @NUMLNS sTEST FOR LOOP COUNTER EQUAL TO # OF DUT LINES. 
5023 023602 002761 T 203 sLOOP IF LOOP COUNT IS NOT ALL LINES DONE. 
5024 023604 005701 TST R1 sCHECK FOR SECOND TIME AROUND OUTER LOOP 
5025 023606 1004 I 60$ sEXIT IF OUTER LOOP DONE TWICE. 
5026 023610 500 CLR R2 sCLEAR THE DUMMY CHAR FOR 2ND TIME AROUND LOOP. 
5027 023612 012701 100000 MOV #100000,R1 sCLEAR LOOP COUNT, SET OUTER LOOP FLAG. 
3028 023616 753 BR 20% sLOOP THE SECOND TIME AROUND OUTER LOOP. 
5030 023620 010467 161472 60$; MOV R4,ERRNBR sRESTORE THE ERROR NUMBER TO ITS INITIAL VALUE. 


B11 
GLOBAL St 


— "5 nm 
; ‘ ETURN TO PREGOS SUBRT. 
5032 023626 000207 RIS PC . = 


Or Ll FUNC TST PART4 MACRO M1200 15 MAR 84 09:48 PAGE 88-3 8 18 
ROUT INE  ROCHRS - , 


Cil 
OWU-11 FUNC TST PART4 MACRO M1200 15-MAR-84 09:48 PAGE 89 
GLOBAL St ®ROUT INE ROMAST - 


: -SBTTL GLOBAL SUBROUTINE - RDMAST - 
5085 see OOOO OOS OOOOOOOOOODOEEEESEEOEEDEEEEEE DEDEDE REDLROEEEEEEEDEDEDERSOORCOCECE 
5050 3° - REPORT DMA_START BIT ERRORS ROUTINE - 
5037 3 THIS SUBROUTINE CHECKS FOR LINES WHICH HAVE DMA_START BIT ERRURS 
5036 3¢ DURING THE JUST COMPLETED DMA TRANSMISSION. IF ANY ARE FOUND, 
ree 3¢ THEY ARE REPORTED. 
3@ 
5041 3* INPUTS: ERRMSG - ADDRESS OF PRIMARY ERROR MESSAGE FOR THIS ROUTINE. 
$042 36 ERRNBR - ERROR NUMBER OF ERROR REPORTED IN THIS ROUTINE. 
aoe? 34 TXINTF - CONTAINS BIT MAP OF LINES WITH DMA_START BIT ERRORS. 
34 
5045 3@ OUTPUTS: ERRBLK - ADDRESS OF THE ERROR REPORTING ROUTINE CDESTROYED), 
ss * MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 
34 
+994 3* CALLING SEQUENCE: JSR PC ,RDOMAST 
3;¢ 
son, 3@ COMMENTS: IF NG LINES HAVE DMA_START BIT ERRORS, NO MESSAGES ARE PRINTED. 
34 
5052 3* SUBORDINATE ROUTINES CALLED: ER9102. 
5055 t-- OPAOOOSEAEDOSESEOESEOLEEOSODESEREROEOEEDEDEDEDEDRDDEREREEERADEERDERESESEEDS 
5054 
5055 025630 ROMAST:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
023630 004567 161470 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
5056 023654 016702 156424 MOV TXINTF ,R2 sGET COPY OF THE DMA_START ERRORS BIT MAP , 
sche 023640 001411 8EQ 60% sEXIT IF NO DMA_START ERROR BITS ARE SET. 
3* 
+4 3 WE HAVE SOME DMA_START BIT ERRORS TO REPORT. 
| id 
5061 023642 012767 015504 161452 MOV ®ER9102,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE, 
gost 023650 012701 012377 MOV 9EM9102,R1 sINDICATE THAT WE HAVE DMA START BIT ERROR. 
3° 
5065 ; REPORT “DMA_START BIT SET AFTER RESET OR TX,ACTION ... ON LINES(S):” 
g 
5066 023654 ERROR : >>>>> ERROR cccce, 
025654 104460 TRAP CSERROR 
oer 023656 012767 000001 156340 MOV #1, FERROR s INDICATE AN ERROR HAS BEEN DETECTED, 
5069 023664 608; PASS sRESTORE GPRS. 
004736 JSR PC,a(SP)- sRETURN TO PREGOS SUBRT. 


023664 
5070 023666 000207 RTS PC 


Dil 
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Or ok! CHO? #14 


5072 -SBTTL GLOBAL SUBROUTINE - REPCOD - 
S073 3° OOOOOLODODDODESOREOEDEEDOEREDESESESEDEEEOEEDEDEEEEEEDEDEEEEEDEOEDEOEOEEOOCCS 
5074 3¢ - ROUTINE TO REPORT ERROR CODE FROM DUT - 
5075 36 THIS ROUTINE REPORTS AN ERROR CODE WHICH HAS BEEN READ FROM THE DUT 
5076 3° FIFO. THE CODE IS CHECKED TO DETERMINE WHETHER IT IS A SELFTEST CODE 
50°? 3° AN MODEM STATUS CHANGE CODE OR A BMP CODE. THIS ROUTINE ASSUMES THAT 
5078 34 THE CODE INDICATES AN ERROR. IF A BMP CODE IS FOUND IT IS NOT REPORTED 
Baap s¢ IMMEDIATELY, BUT IS SAVED ON THE BMP CODE QUEVE TO BE REPORTED LATER, 
34 
5061 s@ INPUTS: Re - CONTAINS THE ERROR CODE COMPLETE WITH FLAGS AND LINE o. 
soos 3* ERRTBL - ERPTYP,ERRNBR,AND ERRMSG SET UP CORRECTLY. 
| 3° 
5°84 3* OUTPUTS: ERRBLK - VALUE MAY BE DESTROYED. 
gees 34 BMPCQP - MAYBE UPDATED IF A BMP CODE IS ADDED TO THE QUEUE. 
3° 
reed 3* CALLING SEQUENCE: JSR PC ,.REPCOD 
34 
5089 3* COMMENTS: ERRNBR IS RESTORED TO ITS ENTERING VALUE BY THIS ROUTINE, 
5090 34 THIS ROUTINE REPORTS ERRORS WITH NUMBERS ERRNBR THRU ERRNBR.1. 
3;* 


s# SUBORDINATE ROUTINES CALLED: ER9001,SAVBME. 


g-- nn POH ROSRESOSESEEEDADASEAEEEEEDDESEOEERDEDODADEREDEEDEEREDEDEEDEDEEAEEEOESS 


REPCOD:: SAVE 


3533 #335 
: 


023670 004567 161430 JSR RS, . 5 s;CALL REGISTER SAVE SUBRT. 
012767 014420 161420 MOV ®ER9O01.ERRBLK ;SELECT THE ERROR REPORTING ROU : 
023702 016703 161410 MOV ERRNBR RS sPRESERVE THE ERROR NUMBER. 
023706 010204 MOV R2,R4 sEXTRACT THE LINE NUMBER FIELD 
023710 000304 SWAB RG 3 FROM THE ERROR CODE WNHICH WAS 
ped 023712 042704 177760 BIC ©177760,R4 s PASSED INTO THIS ROUTINE. 
3? 
3183 3s DETERMINE THE TYPE OF CODE WHICH IS TO BE REPORTED. 
ag 
5103 023716 012701 011173 EM9003,R1 sSELECT MODEM STATUS CODE MESSAGE. 
5104 023722 032702 000001 BIT #BITO,R2 sTEST THE MODEM STATUS INDICATION BIT. 
5105 023726 001422 BEG 4S sGOTO REPORT ERROR IF MODEM STATUS CODE, 
5106 023730 5267 161362 INC ERRNBR sSELECT THE SELFTEST CODE ERROR NUMBER, 
2107 023734 012701 011215 MOV 9EM9004 ,R1 sSELECT SELFTEST CODE MESSAGE, 
5108 023740 012700 000300 300 ,RO sCHECK IF SELF-TEST OR BMP CODE. 
5109 023744 040200 BIC R2,RO sTRY TO CLEAR BMP BITS, 
5110 023746 001003 2s sGO CHECK FOR SELFTEST CODE IF NOT BMP. 
5111 023750 004767 000604 JSR PC, SAVBMP sSAVE THE BMP CODE ON THE QUEUE. 
Slil2 023754 000423 §R 60% sEXIT THIS ROUTINE. 
3115 923756 122702 000201 2s: CMPB. 201,R2 sCHECK FOR SELF TEST NULL CODE. 
5114 023762 001416 BEQ 6% sEXIT ROUTINE IF NULL CODE FOUND, 
5115 023764 122702 000203 CMPB 0203,R2 sCHECK FOR SKIP SELF TEST CODE. 
5116 023770 001418 BEG $ sEXIT ROUTINE IF SKIP SELF TEST CODE FOUND, 
site 023772 4$ sGO REPORT SELF TEST ERROR, 
3? 
tS s REPORT “UNEXPECTED xxxxx CODE FOUND IN RECEIVE CHAR FIFO,” 
S121 023774 094a2702 177400 43: BIC #177400,R2 sREMOVE UPPER BYTE OF CODE TO BE REPORTED, 
5122 024000 004767 002154 JSR PC, TXROFF sTURN OFF TX AND RX DURING ERROR REPORTING. 
5123 024004 ERROR : >>>>> ERROR <cccc, 
024004 104460 TRAP CSERROR 
zige 024006 012767 000001 MOV #1.F ERROR sINDICATE THAT AN ERROR HAS BEEN FOUND, 
5126 024014 064767 002200 JSR PC, TXRON sTURN TX AND RX BACK ON. 
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$127 3° 

sis8 ; RESTORE THE INITIAL E2ROR NUMBER . 

bea s- 

gt0 024020 010367 161272 6$: MOV R3.ERRNBR 

$132 024024 60%: PASS sRESTORE GPRS. 

004736 JSR PC ,.a( SP). sRETURN TO PREGOS SUBRT. 


024024 
5133 024026 000207 RTS PC 
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5135 .SBTTL GLOBAL SUBROUTINE - REPSMR - 
5136 se COOPODOSODODESOOOSOOESESSSS SED SOSSSEOEEEEEEEEEDEDEDEEEEEEEREDDEEELEEEOOOCS 
5137 36 SUMMARY ROUTINE. - 
5138 34 THIS SUBROUTINE REPORTS AN ERROR SUMMARY FOR THOSE LINES WHICH HAVE 
5139 + EXCEEDED THE NUMBER OF INDIVIDUAL ERRORS TO REPORT FOR A SINGLE | WE 
$140 ‘ IN A SINGLE TEST. THIS PARAMETER CAN BE SPECIFIED BY THE OPERATOR GF 
5141 te HE/SHE ANSWERS THE SOFTWARE PARAMETER QUESTIONS. 
1 - 
5143 ;@ INPUTS: ERCNTS - LABEL AT BASE OF LINE ERROR COUNTERS TABLE. 
5144 .é ERRMSG - ADDRESS OF PRIMARY ERROR MESSAGE. 
5145 ee ERRNBR - ERROR NUMBER OF ERRORS IN THIS ROUTINE. 
S146 oa ERSMRF - “REPORT ERROR SUMMARY FOR LINE” FLAGS. 
34 
$148 ;@ OUTPUTS: ERRBLK - ADDRESS OF ERROR REPORTING ROUTINE (DESTROYED). 
5149 36 SUMMARY MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 
34 
$151 3# CALLING SEQUENCE: JSR PC .REPSMR 
34 
5153 s* COMMENTS: IF NO LINES HAVE EXCEEDED THE MAXIMUM NUMBER OF INDIVIDUAL 
5154 on ERRORS TO REPORT, NO MESSAGES ARE PRINTED BY THIS ROUTINE. 
5155 an E SUMMARIES IN THIS ROUTINE ARE REPORTED AS ERRORS. 
5156 os THE CONTENTS OF ERRBLK ARE DESTROYED. 
3% 
5158 ;@ SUBORDINATE ROUTINES CALLED: 
5159 ime SPORPSEAOSEESEOREDEEEEESESEDERDDEEEERERAADEDDERAEDRDEREEEEDEREEEDCESEREESLS 
5160 
5161 024030 REPSMR:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
024030 004567 161270 JSR R5,PREGOS ;CALL REGISTER SAVE SUBRT. 
5162 024034 005767 156440 TST —ERSMRF sCHECK THE “PRINT LINE ERROR SUMMARY” FLAGS. 
5163 024040 001404 BEQ 60$ sEXIT WITHOUT ACTION IF NO SUMMARY FLAGS SET. 
53 * 
ter s WE HAVE SOME ERROR SUMMARIES TO REPORT. 
ge 
2167 024042 012767 015070 161252 MOV @ER9004,ERRBLK SELECT ERROR REPORTING ROUTINE. 
3° 
5169 ; REPORT 
5170 “ERROR SUMMARY REPORT FOR LINES WITH EXCESSIVE NUMBERS OF ERRORS: 
) 
5172 024050 ERROR 
e173 028050 104860 TRAP  — CSERROR 
w 
5174 024052 60$: PASS ;RESTORE GPRS. 
004736 JSR PC, a(SP)- ;RETURN TO PREGOS SURAT. 


024052 
5175 024054 000207 RTS PC 
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5177 -SBTTL GLOBAL SUBROUTINE - RESETT - 
S17 5b OOOOOAODOODEDSOEEOEEEEOODESEESEEOEEEEEREODDEEEEEEEDEEEEEEEEEEEEEOERESEESSSOES 
5179 3 - RESET DEVICE UNDER TEST - 
5180 3 THIS SUBROUTINE IS USED TO RESET THE DUT TO A KNOWN STATE. 
5161 3¢ IF RESET DOES NOT SUCCESFULLY COMPLETE, IE. TIME-OuT OCCURS, THEN 
5 tee 3¢ AN ABORT TEST ERROR MESSAGE IS REPORTED. 
;* 
5184 ;* INPUTS: CSRA - CONTAINS THE ADDRESS OF THE CSR 
5185 34 TXBFCA - CONTAINS ADDRESS OF DUT DMA BUFFER COUNT REGISTER. 
2186 34 ERRTBL- ERRTYP,ERNBR,AND ERRMSG SET UP CORRECTLY. 
3;* 
5186 3* OUTPUTS: THE DUT PERFORMS ITS RESET FUNCTION INTO A KNOWN STATE. 
5189 34 CARRY - CLEAR INDICATES THE TEST IS TO BE ABORTED. 
5190 34 ERRBLK - VALUE MAY BE DESTROYED. 
5191 ;* IESTAT - TX AND RX INTERRUPT FLAGS ARE CLEARED. 
3138 34 TX AND RX INTERRUPT ENABLE BITS IN THE DUT'S CSR ARE CLEARED. 
3* 
44 3* CALLING SEQUENCE: JSR PC ,RESETT 
34 
5196 3* COMMENTS: THIS SUBROUTINE CAN REPORT ERRORS WITH NUMBERS INITIAL ERRNBR 
at. 34 THIS ROUTINE DOES NOT DESTROY THE VALUE OF ERRNBR. 
34 
5199 s* SUBORDINATE ROUTINES CALLED: DELAY.MSLGET. 
asec i OOORLEASEEESEESESESEDEDESEEEEEEDDEAEEESREDEEEADEDDDODAEDREREDEREDREDEREEEEESS 
5202 024056 RESETT:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
024056 004567 161242 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
ret 024062 012702 000040 MOV ®BITOS,R2 s;SET BIT MASK OF MASTER RESET BIT. 
s¢ 
5205 s TEST THE STATE OF THE MASTER RESET @IT IN THE CSR. 
5206 ; IF MR IS SET THEN WAIT FOR SELF-TEST TO COMPLETE. 
soon : IF TIME-OUT OCCURS, REPORT THE ERROR AND PASS-OUT ABORT TEST INDICATOR. 
§ = 
5209 024066 016704 156106 CSRA,R4 sGET THE ADDRESS OF THE DUT’S cSR. 
5210 024072 030214 BIT R2,(R4) sCHECK STATE OF MASTER RESET BIT. 
5211 024074 001406 BEG 2s sDON'T DELAY IF MR IS ALREADY CLEAR. 
S2el2 024076 CLR R3 sSET UP DESIRED STATE OF MASTER RESET BIT. 
5215 024100 012701 011610 MOV #5000. .R1 sPASS TIME-OUT VALUE OF 5S SECONDS. 
5214 024104 004767 174764 JSR PC, MSLGET sWAIT FOR SELF-TEST TO COMPLETE, MR CLEAR, 
gets 024110 103012 BCC 4$ 3GO REPORT ERROR IF TIMEOUT OCCURRED. 
5217 . 
5218 ; T MASTER RESET BIT IN CSR. CLEAR TX AND Rx ENABLE BITS, ETC. 
5219 ; SKIP THE SELFTEST. 
gese ; TIM -OUT OF 5S SECS, JUST IN CASE THE SELF-TEST EXECUTES. 
Bh 
S222 024112 010277 156062 23; MOV R2,@CSRA sSET MASTER RESET BIT, DISABLE Tx AND Rx INTS, 
ab 024116 004767 000504 JSR PC,SKPSTS sTRY TO SKIP THE SELFTEST. 
ze 
S225 $ SET SELF-TEST TIME-OUT OF 5 SECONDS, AND WALT FOR M.R TO CLEAR. 
5226 : If TIME-OUT OCCURS, THEN REPORT THE FATAL ERROR AND PASS-OUT THE ABORT 
cto. ; TEST INDICATOR. 
| 
9229 024122 005003 CLR RS sSET UP DESIRED STATE OF MASTER RESET BIT. 
S230 024124 012701 011610 MOV #5000. ,R1 sPASS TIME-OUT VALUE OF 5S SECONDS. 
5231 024130 004767 174740 JSR PC ,MSLGET sWAIT FOR SELF-TEST TO COMPLETE, MR CLEAR. 
0241 103410 BCS sSKIP ERROR REPORT IF MR CLEARED IN TIME. 
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5233 3° 
5234 s SET UP ERROR MESSAGE TO REPORT “FATAL ERROR FOUND DURING RESET, TEST ABORTED”. 
sees s INDICATE TEST IS TO BE ABORTED BY CLEARING THE CARRY BIT. 
a.< 
52357 024136 012701 010111 4%: MOV 9EM1601,R1 sPASS ERROR MESSAGE TO REPORT. 
$238 024142 012767 014070 161152 MOV ®ER1603,ERRBLK ;PASS ADDRESS OF ERROR HANDLING ROUTINE. 
5239 sREPORT ERROR “TIME -OuUT OCCURRED WAITING FOR MASTER RESET TO CLEAR” 
5240 ; “TEST ABORTED” 
5241 024150 ERROR : >>>>> ERROR <«ccc 
024150 104460 TRAP CsERROR 
5242 024152 000241 CLC s INDICATE TEST IS TO BE ABORTED. 
eat 024154 000403 BR 60% sEXIT THIS SUBROUTINE, ABORT TEST INDICATOR, 
:¢ 
5245 ; CLEAR TX AND RX INTERRUPT ENABLE STATUS FLAGS IN IESTAT, 
ae ; EXIT WITH CONTINUE TEST INDICATOR SET CIE.CARRY SET). 
5248 024156 605067 156052 6%: CLR IESTAT sCLEAR TX AND RX INTERRUPT STATUS FLAGS. 
ot 024162 000261 SEC s INDICATE SUCCESS, CONTINUE TEST. 
5251 024164 60%: PASS sRESTORE GPRS, PASS THE FOLLOWING INYACT: 
024164 004736 JSR PC ,aCSP)-+ sRETURN TO PREGOS SUBRT. 
5252 sCARRY BIT: IF CLEAR, INDICATES ABORT TEST. 
att 024166 000207 RTS PC 


Gt OBA, 


5280 024170 
024170 

5281 024174 

S282 024176 

5283 024202 
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5286 

5287 024204 


5268 024212 
5289 024216 
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5295 024222 
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161130 
156302 


Steere 


000001 


161110 


155772 


-SBTTL GLOBAL SUBROUTINE - RRXNDN - 


see COOOOOODDDOOOSOOOOSOSSSSSSOHESSSOSOOSESSOOEOEEEEEDEEEELEOELEOEEESOCEEECCCS 


3° - REPORT RECEPTION NOT COMPLETED ROUTINE - 


;* THIS SUBROUTINE CHECKS FOR LINES WHICH OID NOT RECEIVE THE COMPLETE 
36 DATA PATTERN. IF ANY ARE FOUND, THEY ARE REPORTED. 

3¢ 

3¢ INPUTS: RS - LOCAL ACTIVE LINES BIT MAP. 

s* DPLENB - BASE OF TABLE OF DATA PATTERN LENGTHS. 

36 ERRMSG - ADDRESS OF PRIMARY ERROR MESSAGE FOR THIS ROUTINE. 
5¢ ERRNBR - ERROR NUMBER OF ERROR REPORTED IN THIS ROUTINE. 

3 RXCNTB - LABEL AT BASE OF THE Rx CHARACTER COUNTERS TABLE. 
36 RXDONF - RECEPTION DONE FLAGS. 


3;¢ 
3@ OUTPUTS: ERRBLK - ADDRESS OF THE ERROR REPORTING ROUTINE (DESTROYED). 
34 MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 


3;* 
3* CALLING SEQUENCE: JSR PC ,RRXNDN 
e 


$ 
3* COMMENTS: IF NO LINES FAILED TO COMPLETE THEIR RECEPTION, NO MESSAGES 
;6 ARE PRINTED. 
34 
s* SUBORDINATE ROUTINES CALLED: ER9005. 
g-- COPRASSEOSAEASEEEEESSOEEEEEDEDESEEEFEEESREEEEEDEEDEDEDEREEEREEEREEESEEEOEES 
RRXNDN:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR R'S ,PREGOS sCALL REGISTER SAVE SUBRT. 
MOV RS ,R2 sGET COPY OF THE LOCAL ACTIVE LINES RIT MAP. 
BIC RXDONF ,R2 sGET MAP OF ACTIVE LINES WITH RX DONE FLAG CLR. 
BEQ 60$ sEXIT IF NO ACTIVE LINES HAVE Rx DONE FLAG CLR. 


3? 
3 WE HAVE SOME “RX NOT COMPLETED” ERRORS TO REPORT. 


MOV ®ERSOOS.ERRBLK ;SELECT THE ERROR REPORTING ROUTINE. 

MOV £9016 ,R1 sINDICATE THAT WE ARE DEALING WITH RECEPTION, 

MOV @RXCNTB RG sPASS BASE OF RX CHAR COUNTERS TABLE TO ER9005. 
3* 
3 REPORT “SINGLE CHARACTER MODE TEST ERROR: “ | 
; “DATA PATTERN NOT COMPLETELY RECEIVED ON ALL LINES: ” 
7 eee 
+ od 

ERROR 

TRAP CSERROR 
MOV 61,FERROR s INDICATE AN ERROR HAS BEEN FOUND, 
605; PASS sRESTORE GPRS, 
ies pe JSR PC, @(SP)- sRETURN TO PREGOS SUBRT, 
S 


31 
5332 024252 
5333 024260 


5341 024270 
024270 

5342 024272 

5343 

5344 024300 
024300 

5545 024302 
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012767 
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015204 161042 


000001 155724 


-SBTTL GLOBAL SUBROUTINE - RTXNON - 


s** COOPERS DODELOSESSSSESOSESSES4000000000600000000000000000000000000000000000 


36 - REPORT TRANSMISSION NOT COMPLETED ROUTINE 


a THIS SUBROUTINE CHECKS FOR LINES WHICH DID NOT TRANSMIT THE COMPLETE 
a DATA PATTERN. IF ANY ARE FOUND, THEY ARE REPORTED 
& 
t@ INPUTS: RS - LOCAL ACTIVE LINES BIT MaP. 
a OPLENB - LABEL AT BASE OF DATA PATTERN LENGTH TABLE. 
.. ERRMSG - ADDRESS OF PRIMARY ERROR MESSAGE FOR THIS ROUTINE. 
a ERRNBR - ERROR NUMBER OF ERROR REPORTED IN THIS ROUTINE. 
es TXCNTB - LABEL AT BASE OF THE Tx CHARACTER COUNTERS TABLE. 
oi TXDONF - TRANSMISSION DONE FLAGS. 
cs 
5@ OUTPUTS: ERRBLK - ADDRESS OF THE ERROR REPORTING ROUTINE (DESTROYED). 
oa MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 
;* 
;# CALLING SEQUENCE: JSR PC .RTXNDN 
;* 
s¢ COMMENTS: IF _NO LINES FAILED TO COMPLETE THEIR TRANSMISSION, NO MESSAGES 
— ARE PRINTED. 
3% 
3 SUBORDINATE ROUTINES CALLED: ER9005. 
3-- CAOREREEEESESSESEEEEOSEDESESEEOAEAEESEDEDOEDEEEDEDODEDEDEDEDEDEEEDESEEECLEE 
RTXNON:: SAVE ;SAVE CONTENTS OF GPRS RO THRU RS. 
RS, PREGOS :CALL REGISTER SAVE SUBRT. 
MOV —s-RS..R2 ;GET COPY OF THE LOCAL ACTIVE LINES BIT MAP. 
BIC  TXDONF.R2 sGET MAP OF ACTIVE LINES WITH TX DONE FLAG CLR. 
BEQ 608 sEXIT IF NO ACTIVE LINES HAVE TX DONE FLAG CLR’ 


3° 
; WE HAVE SOME “TX NOT COMPLETED” ERRORS TO REPORT. 


MOV @ER9O0S,ERRBLK ;SELECT THE ERROR REPORTING ROUTINE, 
MOV #€M9015,R1 sINDICATE WE ARE DEALING WITH TRANSMISSION. 
MOV @TXCNTB,R4 sPASS BASE OF TX CHAR COUNTERS TO TABLE EROBOS. 


5 * 
REPORT “SINGLE CHARACTER MODE TEST ERROR: ” 
“DATA PATTERN NOT COMPLETELY TRANSMITTED ON ALL LINES: ” 


ERROR : >>>>> ERROR «cece, 
TRAP CSERROR 
MOV #1,.F ERROR sINDICATE THAT AN ERROR HAS BEEN FOUND. 
60%: PASS sRESTORE GPRS, 
ar pc JSR PC ,a( SP). sRETURN TO PREGOS SUBRT. 
Ss ; 
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000001 
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SEQ 1406 


-SBTTL GLOBAL SUBROUTINE - RXDSBL - 


;*¢ CPPPREEESSESSESESEEEOSEREESEDSERODESEEAOOREDEDEEADERDEDDEDREEDEREDEER 20646 


3¢ - DISABLE RECEIVERS - 


34 THIS SUBROUTINE IS USED TO DISABLE RECEPTION ON SELECTED LINES Bry, 

;4 CLEARING THE ASSOCIATED RX_ENABLE BIT ON THE DUT. 

34 

3# INPUTS: RS_- BIT‘S SET CORRESPOND TO LINES ON WHICH TO CLEAR RX_ENABLE. 
;4 CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 

34 TESTAT - CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
34 NUMLNS - EQUATED TO BE THE MAXIMUM NUMBER OF LINES AVAILABLE . 
34 LNCTRA - CONTAINS THE ADDRESS OF THE LNCTRL REGISTER, 

3% 

3# OUTPUTS: RS _- BIT'S SET INDICATE INITIAL STATES OF ALL RX _ENBLE BITS. 

34 LNCTRA - THE STATE OF THE RX_ENBLE BIT MAY BE ALTERED. 

34 THE CONTENTS OF THE IND_ADD_REG FIELD IN THE CSR ARE DESTROYED, 
34 

3# CALLING SEQUENCE: JSR PC ,.RXDSBL 

3* 

;* COMMENTS: 

3% 

3* SUBORDINATE ROUTINES CALLED: NONE. 

s-- PASREEEEESSEEESEEAEESEEASEAASOREASAREEEEADDADEDERADDDEEDDEREDERDREREALERE‘E 
RXDSBL:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS. 
RS ,PREGOS 


JSR . sCALL REGISTER SAVE SUBRT. 
MOV RS,RO sCOPY BIT MAP OF LINES TO DISABLE RECEPTION. 
MOV $B8ITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
MOV LNCTRA,R2 sGET THE ADDRESS OF THE LNCTRL REGISTER. 
MOV sGET MAXIMUM LINE NUMBER PLUS ONE 


ONUMLNS .R3 ° 
MOV IESTAT ,.R4 sGET THE STATES OF THE INT ENABLE BITS. 
CLR RS sLOG POSSIBLE RX DISABLED ON ALL LINES. 


3* 
s SELECT EVERY LINE IN TURN, AND LOG THE STATE OF EACH RX_ENABLE BIT. 


2 

2s: MOV R4,@CSRA sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
BIT #BIT2,CR2) sCHECK STATE OF RX_ENABLE BIT ON SELECTED LINE, 
BEQ QS sSKIP NEXT INSTRUCTION IF RX_ENABLE CLEA. 
BIS R1,R5 sLOG RX ENABLE BIT SET FOR SELECTED LINE. 


: P 
3 CLEAR RX_ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE Rx DISARLE 
; LINE BIT MAP, 

5 

$ 


4$: BIT R1,RO sCHECK STATE OF DISABLE LINE BIT MAP. 
BEQ 6$ BRANCH IF THIS LINE TO REMAIN UNALTERED. 
BIC #BIT2,(R2) sCLEAR RX_ENABLE BIT ON SELECTED LINE. 
6%: INC R4 sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
ASL R1 ;SHIFT BIT MAP FOR NEXT LINE. 
DEC R3 ;DECREMENT LINE NUMBER. 
BNE 2$ ;LOOP TO CHECK NEXT LINE. 
60$: PASS RS sRESTORE GPRS,EXCEPT 
MOV R5,RSSLOT(SP) sPUT RS IN STACK SLOT. 
JSR PC, )» sRETURN TO PREGOS SUBRI. 
me sRS - PREVIOUS STATES OF ALL RX_ENABLE BITS. 
RTS 
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SEQ 14) 


-SBTTL GLOBAL SUBROUTINE - RXENBL - 


se ODODLOLLODODSSSSSEOS6900000000000000000000000000000000000000000000000000000 


3* - ENABLE RECEIVER - 

34 THIS SUBROUTINE IS USED TO ENABLE RECEPTION ON SELECTED LINES By 

34 SETTING THE ASSOCIATED RX.ENABLE BIT ON THE DUT. 

~ 

;* INPUTS: RS - BIT'S SET CORRESPOND TO LINES ON WHICH TO SET RX. ENABLE. 
34 CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 

34 ITESTAT - CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
34 NUMLNS - EQUATED TO BE THE MAXIMUM NUMBER OF LINES AVAILABLE. 
34 LNCTRA - CONTAINS THE ADDRESS OF THE LNCTRL REGISTER, 

a 

3# OUTPUTS: RS - BIT’S SET INDICATE PREVIOUSLY DISABLED LINES. 

34 LNCTRA - THE STATE OF THE RX.ENABLE BIT MAY BE ALTERED. 

34 THE CONTENTS OF THE IND.ADD.REG FIELD IN THE CSR ARE DESTROYED. 
3% 

3# CALLING SEQUENCE: JSR PC ,RXENBL 

3* 

3* COMMENTS: 

3% 

s* SUBORDINATE ROUTINES CALLED: NONE. 

$-- SAPRESERSEEEEERESESEEEEEAEDEASEEDEEADDEEEAEREDEEDDDRADRADDREERREEELEEA seeee6 


RXENBL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS 
RS ,PREGOS 


>CALL REGISTER SAVE SUBRT. 
Le. 


MOV RS,RO sCOPY BIT MAP OF LINES TO ENAB 

MOV #BITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
MOV LNCTRA,R2 sGET THE ADDRESS OF THE LNCTRL REGISTER. 
MOV sGET MAXIMUM LINE NUMBER 


ONUMLNS ,R3 ‘ 
MOV IESTAT ,R4 sGET THE STATES OF THE INT ENABLE BITS. 
CLR RS sCLEAR RX.ENABLE BIT LOG OF DISABLED LINES. 


3° 
; SELECT EVERY LINE IN TURN,AND LOG ANY RX.ENBLE BIT THAT IS CLEAR. 


ie 

2$: MOV R4,aCSRA sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
BIT *BIT2,(R2) sCHECK STATE OF RX.ENABLE BIT ON SELECTED LINE, 
BNE 4$ sSKIP NEXT INSTRUCTION IF RX.ENABLE SET. 
BIS R1,R5 sLOG RX ENABLE BIT CLEAR FOR SELECTED LINE. 


SET RX.ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE RX ENABLE 
; LINE BIT MAP, 


3 
4$: BIT R1,RO sCHECK STATE OF RX.ENABLE LINE BIT MAP, 
BEQ 6% sBRANCH IF THIS LINE TO REMAIN UNALTERED. 
BIS oBIT2,(R2) sENABLE RECEPTIONON SELECTED LINE. 
6$: INC R4 sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
ASL Ri sSHIFT BIT MAP FOR NEXT LINE. 
DEC R3 sDECREMENT LINE NUMBER, 
BNE es ;LOOP TO CHECK NEXT LINE. 
60%: PASS RS sRESTORE GPRS,EXCEPT 
MOV RS .RSSLOT( SP) sPUT RS IN STACK SLOT. 
JSR PC ,@(SP)- sRETURN TO PREGOS SUBRT. 
sRS - LINE BIT MAP CORRESPONDING TO THE 
we pc ; PREVIOUS LINES THAT WERE DISABLED. 
S 
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-SBTTL GLOBAL SUBROUTINE - RXIEO - 

5455 ;*e SODSEOS66646646466066666660606066064400000606460004006 PROCES EARESREEEEOEEE REESE 

5456 3* - RECEIVER INTERRUPT DISABLE - 

ae? 34 THIS ROUTINE IS USED TO DISABLE RECEIVER INTERRUPTS IN THE DHU11. 

;* 
soap 3* INPUTS: NONE . 
3;* 

5461 :* OUTPUTS: THE RX.INT.ENBL BIT IS CLEARED IN THE DUT CSR. 

5462 34 IESTST -CONTAINS THE UPDATED STATUS OF THE TX AND RX INTERRUPT 

5463 34 ENABLE BITS. 

5464 34 

rye 3# CALLING SEQUENCE: JSR PC .RXIEO 

34 

5467 3* COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD IN 

ees 34 THE DUT CSR ARE DESTROYED. 
34 

5470 3# SUBORDINATE ROUTINES CALLED: NONE. 

5471 $-- S424666646666466446606600464640064060000004000048- _ SHREORAAEEAAAEAEEEEHRESEREREDS 

5472 024474 010046 RXIEO:: MOV RO, -C(SP) sSAVE CONTENTS OF RO ON THE STACK. 

5473 024476 GETPRI -(SP) sSAVE PROCESSOR PRIORITY ON STACK. 

024476 104440 TRAP CSGPRI 
024506 010046 MOV RO, -(SP) 

5474 024502 SETPRI @PRIO7 ; IGNORE ANY INTERRUPT THAT MAY BE GENERATED. 
024502 012700 000340 MOV oPRIO7,RO 
024506 104441 TRAP CSSPRI 

5475 024510 042767 137777 155516 BIC 9137777, IESTAT ;CLEAR RX. INT.ENBL BIT IN IESTAT, 

5476 024516 016777 155512 155454 MOV IESTAT,@CSRA sDISABLE RX INTERRUPTS. 

5477 024524 SETPRI (SP)-+ sENABLE INTERRUPTS TO THE PROCESSOR AGAIN. 
024524 012600 MOV CSP )+,RO 
024526 104441 TRAP CSSPRI 

5478 024530 012600 MOV (SP)+,RO sRESTORE RO. 

5479 024532 000207 RTS PC 


CLOGAL StBROUTIne w™* "MACRO M1200, 4 


052767 000100 155472 
042767 137677 155464 
016777 155460 155422 
000207 


5- 
1 
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see CAAPERSLESSESESESESESESOOESESORESORESEDEDEEEAAEEEEEERERREEEEDEDEDORSEROLOELE 


34 - RECEIVER INTERRUPT ENABLE - 

3* TRTS ROUTINE IS USED TO ENABLE RECEIVER INTERRUPTS IN THE DHU11. 
34 

3* INPUTS: NONE . 

3* 

3# OUTPUTS: THE RX. INT.ENBL BIT IS SET IN THE DUT CSR. 

34 IESTST -CONTAINS THE UPDATED STATUS OF THE TX AND Rx INTERRUPT 
3* ENABLE BITS. 

;¢ 

3# CALLING SEQUENCE: JSR PC RXIE1 

34 

3* COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD IN 
34 THE DUT CSR ARE DESTROYED. 

7e@ 


3 SUBORDINATE ROUTINES CALLED: NONE. 


s-- *ARSEEEEEEEEEEEEEEEEEEESEEREREESEDOOERREEADDOERAREEADADERRRERDDDDDRDEEERRDS 


RXIE1:: BIS #BITO6, IESTAT sSET RX. INT.ENBL BIT IN IESTAT. 
BIC #137677, IESTAT ;CLEAR ALL OTHER BITS, EXCEPT Tx AND RX I.E. 
a en oe sENABLE RX INTERRUPTS. 


SEQ 14% 


- SS 


DMU-11 FUNC TST PARTS 
GLOBAL St BROUT INE 


5505 


024616 


024622 
024622 
024624 


b | c 
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-SBTTL GLOBAL SUBROUI! INE 


- SAVBMP . 


z** meme eae BMP CODES nee ent t theta eeeneeseessecesacccaeass 


36 SAVE BMP CODES ROUTINE 

34 THIS ROUTINE SAVES THE yyy PASSED IN, ONTO THE BMP CODE QUE VE 
3° TOGETHER WITH THE NUMBER OF HE CURRENTLY EXECUTING TEST. 

Tt 

3¢ INPUTS: R2 - CONTAINS THE BMP CODE THAT IS TO BE PLACED ON THE QUEUE. 
3¢ BMPCQGP - CONTAINS ADDRESS OF NEXT LOCATION IN THE BMP QUEUE. 
3¢ Snpcoe | LABEL AT BASE OF THE BMP CODE QUEUE. 

34 BMPCGE LABEL OF NEXT LOCATION AFTER THE END OF THE BMP QUEUE. 
e TSTNUM - CONTAINS THE NUMBER OF THE CURRENT TEST. 

Ce 

s¢ WITPUTS: BMPCQP - INCREMENTED By 4. 

: THE CONTENTS OF THE BMP CODE QUEUE ARE UPDATED. 


‘s CALLING SEQUENCE: JSR 


:* COMMENTS: IF THE OVERFLOW OCCURS THEN THE LAST LOCATION WILL BE 
OVERWRITTEN BY ANY SUBSEQUENT ATTEMPTS TO UPDATE THE QUE VE , 
A 
3* SUBORDINATE ROUTINES CALLED: NONE. 
g-- OAPOOOOOODEDSOOOEDODEOEDEEEELEEEREEEESEDEEAREEEADEEODEREEEEDEODEEEEOESONOS 
SAVBMP:: SAVE sSAVE CONTENTS OF ie RO THRU RS, 
160540 JSR RS ,PREGOS sCALL REGISTER SAVE Sv@RT. 
155720 MOV BMPCOP ,R4 GET THE POINTER TO THE NEXT LOCATION IN QUEUE. 
155464 “OvVB TSTNUM,(R4)- ; SAVE THE CURRENT TEST NUMBER ON [HE QUEUE. 
INC R4 s INCREMENT THE POINTER TO GIVE AN EVEN ADORESS. 
177400 BIC #177400,R2 sCLEAR THE UNWANTED BITS FROM THE BMP CODE. 
MOV R2,(R4)- sSAVE THE BMP CODE ON THE QUEUE. 
002712 CMP R4 , OBMPCQE sCMECK IF OVERFLOW AN OCCUR THE NEXT TIME, 
BLO 2s sGO SAVE THE POINTER IF WE WILL NOT OVERFLOW. 
000004 SUB @4 ,R4 sRESET THE POINTER TO THE LAST LOCATION IN QUE . 
155666 23; MOV R4 , BMPCQP sSAVE THE POINTER, 
603: PASS sRESTORE GPRS, 
ars ec JSR PC ,aCSP). sRETURN TO PREGOS SUBRT. 


PC, SAVBMP 


SEQ 144 


DM 11 FUNC 'ST PARTS 
GLOBAL 5S’ BROUTINE 


5582 


024672 
024676 


024700 
024700 
024702 


004567 
012704 
004767 


012701 
012703 
005301 
016704 
010124 
010224 
020467 
103774 


032701 
001365 


0047536 
000207 


C12 
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-SBTTL GLOBAL SUBROUTINE 


- SKPSTS - 


see OOOOCOOOOODDODEDDESEEEEOOOOEEOEEEEEEEELODEEEREEEODEEEEEEEOEEEOEEEECOOSSSS 


3* - SKIP SELFTEST ROUTINE - 

3° THIS SUBROUTINE IS USED TO SKIP THE SELFTEST AFTER A OUT RESET HAS BEEN 
3° INITIATED. IT MUST BE ENTERED IMMEDIATELY AFTER SETTING THE DUT MASTER 
36 RESET ROUTINE OR AFTER THE EXECUTION OF A BUS RESET (BECAUSE OF TIMING 
3¢ CONSIDERATIONS). 

34 

3¢ INPUTS: CSRA - CONTAINS ADDRESS OF THE DUT CSR 


er TXBFCA - CONTAINS ADDRESS OF DUT DMA BUFFER COUNT REGISTER. 
34 
3@ OUTPUTS: SKIP SELFTEST CODES ARE WRITTEN TO THE DUT REGISTERS. 
34 
3@ CALLING SEQUENCE: JSR PC, SKPSTS 
3°¢ 
3* COMMENTS: 
34 
3 SUBORDINATE ROUTINES CALLED: DELAY. 
g-- COPPER ODEEDOEDEEEDESOAEOUESOREEEDEDEEEREEEEDESEEREDERRDEDEEESEEDEOEECOaES 
SKPSTS:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
160472 JSR RS, PREGOS sCALL REGISTER SAVE SUBRT. 
000012 MOV #10. ,.R4 sPASS DELAY VALUE OF 10 MILLI-SECONDS. 
172614 JSR PC DELAY sDELAY FOR 10 MILLI-SECONDS. 
3? 
¢ WRITE SKIP SELF-TEST CODE (52525) TO ALL THE INDEXED DUT REGISTERS. 
+ i 
000060 MCV ONUALNS!BITOS.R1 3FORM IND.ADR.REG FIELD (PLUS M.R. BIT) WORD. 
sTHE ABOVE INCLUSION OF THE M.R. BIT IS NECESSARY BECAUSE OF THE 
052525 MOV $52525,R3 sINITIALISE THE SKIP SELF-TEST CODE. 
4%: DEC R1 sSELECT THE NEXT SET OF DEVICE REGISTERS. 
155320 MOV CSRA,R4 sGET THE ADDRESS OF THE CSR OF THE DUT. 
MOV R1,(R4). sSELECT A BANK OF DUT REGISTERS. 
6$: MOV R3,(R4)> sWRITE THE CODE TO A OUT REGISTER. 
155326 CMP =s_s« RA, TXBFCA sCOMPARE POINTER WITH LAST REGISTER ADDRESS. 
BLO 6% sLOOP IF NOT ALL REGS DONE IN THIS BANK. 
000017 BIT #17,R1 sTEST FOR IND.ADR.REG FIELD DECREMENTED TO o. 
as sLOOP UNTIL ALL REGISTERS CONTAIN TME CODE. 
605: PASS sRESTORE GPRS. 
ware ‘ JSR PC,a( SP). sRETURN TO PREGOS SUBRT. 
e 


“EQ 14% 


D12 


Bek? EHifiol Pine *'* MACRO M1205, JayMan 84 09:48 FAGE 101 “0 Lae 
5584 -SBTT. GOBAL SUBROUTINE - SPLSUP . 
S545 Pa CCOPOORODOOOOSOLSOOODODESES OOO REOEEEEEDEEDD EEE EDEEEEEREEEEODEEDESECEOEEEEE 
Fr 3; - SPLIT SPEED TRANSMISSION/RECEPTION SET-UP - 
3;¢ 

€,5, 4 3¢ THIS ROUTINE IS USED TO INITIALISE BOTH THE DUT AND Tett 
§589 7) TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
zeae 3° STATE, PRIOR TO SPLIT SPEED TRANSMISSION/RECEPTION. 

i 3° 

2 3¢ INPUTS: RO - TX,RX LPR CONTENTS FOR LINES IN GROUP ITI. 
5593 50 Rl - TX,RX LPR CONTENTS FOR LINES IN GR ; 
6594 3:6 R2 - START ADDRESS OF DATA PATTERN TO TRANSMIT. 
5595 3¢ R3 - NUMBER OF TIME DATA PATTERN TO BE TX ON LINES IN LINGRP 1, 
5596 36 R4_- NUMBER OF TIME DATA PATTERN TO BE TX ON LINES IN LINGRP>: 
5597 3 ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTLY ACTIVE LINES. 
5598 3¢ LGRP1M - CONTAINS THE BIT MAP OF LINE GROUP I LINES. 
*599 36 LOPBCK - CONTAINS THE TYPE OF LOOPBACK MODE SELECTED. 
$60 50 CBB - LABEL AT BASE OF TX/RX CONTROL BLOCK. 

1 od 
5602 3@ OUTPUTS: THE CONTENTS OF THE CONTROL BLOCK ARE DESTROYED. 
5603 34 THE INDIRECT ADDRESS FIELD OF THE DUT CSR MAY BE DESTROYED. 
5604 3¢ THE DUT’S LPR’S AND LNC'S MAY BE MODIFIED. 
5605 34 THE FOLLOWING POINTERS AND COUNTERS ARE INITIALISED; 

06 34 CHCNT , CHRTOT ,DPEND,OPLEN,.EXCNT ,RXCNT ,RXDONF ,AXPTR, TXCN), 
+9 34 TXDONF , TXPTR, TXRXL. 
34 


& 
we 
e 


CALLING SEQUENCE : JSR PC. SPLSUP 
4 


3 


5611 3* COMMENTS: THIS ROUTINE SHOULD BE CALLED TWICE DURING THE TESTING OF 
56i2 3° THE SPLIT SPEED CAPABILITIES OF THE DUT. 
5613 3° SO THAT BOTH LINE GROUPS ARE TESTED ON TRANSMISSION ANO 
5614 :4 RECEPTION, 
5615 ;4 EG, Ril - LPR CONTENTS FOR LINES IN LGRP2M,TX*7,RX*Z BAUD. 
5616 34 R2 - LPR CONTENTS FOR LINES IN LGRP1M,TX*Z,RX=¥ BAUD, 
5617 36 RS - REPEAT TX ON LINES IN LINE GROUP 1 = x TIMES, 
5618 74 R4 - REPEAT TX ON LINES IN LINE GROUP > » w TIMES, 
5619 34 JSR PC,SPLSUP ; DO SET-UP, 
562 ;4 EXECUTE TEST FOR THE ABOVE SET-UP. 
5621 3% SWAP THE CONTENTS OF R1 AND Re. 
5622 34 SWAP THE CONTENTS OF R3 R4, 
5625 La Rl - LPR CONTENTS FOR LINES IN LGRPOM, TX=Z,Rx=) BAUD, 
5624 34 Re _ LPR CONTENTS FOR LINES IN LGRPIM, Txey¥ »RX*2 BAUD, 
5625 3° RS - REPEAT TX ON LINES IN LINE GROUP 1 «= w TIMES, 
5626 36 R4 - REPEAT TX ON LINES IN LINE GROUP 2 = x TIMES, 
5627 36 PC 300 SET UP AGAIN, 
3628 30 EXECUTE TEST AGAIN, 
3*# 

3650 3* SUBORDINATE ROUTINES CALLED: CONMAP,RXDSBL,RXENBL, TXRINI. 
seeh 5b -" SOROSESSSOSEDOSEDOSOSEAEEEESOSEOEDODEDADSEDEEDEDEDDDODDEEDEDEODEEOESEEECOCE 
5633 024704 SPLSUP:: SAVE sSAVE CONTENTS OF THE GPR’S RO THRU RS, 

024704 004567 160414 JSR RS, sCALL REGISTER SAVE SUBRI, 
5634 024710 010067 000264 MOV RO, 70% sSAVE LPR PARAMETER FOR LINE GRP2. 
5635 024714 010167 000262 MOV R1, 728 sSAVE LPR PARAMETER FOR LINE GRP1. 
5636 024720 005067 155556 CLR TXDONF sCLEAR THE Tk DONE FLAGS FOR ALL LINES. 
Peg 028724 005067? 155554 CLR RXDONF sCLEAR THE Rx DONE FLAGS FOR ALL LINES. 

3? 

5639 : SET UP THE TRANSMISSION/RECEPTION CONTROL BLOCK TO INITIALISE THE LINES 


024772 


024776 


025046 


Bek! Stihiolt ine?" 


005200 
012710 


004767 


012701 
0 


tle 
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156166 
003124 
000004 


000020 
155142 
155204 
155134 
000002 


0006 32 


177777 
155110 


155144 
156034 
156026 
000072 
000566 


156010 


g- 


In GROUP II. 


PE EEEEL 


Ss 
o 


RO 
2, TRO) 


sSET CONTENTS OF LPR PARAMS IN Tx/Rx C.BLK., 
sGET BASE ADDRESS OF CONTROL BLOCK. 

sLNCTRL PARAMETER, ENABLE RECEIVERS. 

sSTART ADDRESS OF DATA PATTERN. 

sDATA PATTERN LENGTH SET TO 16 


iNUMBER OF DATA PATTNS TO TRANSMIT ON LINGRPO. 


s6IT MAP OF LINES TO INITIALISE. 

;sCLEAR THE UNWANTED LINES FROM BIT MAP. 

;SET LOOPBACK MODE. 

s INCREMENT ADDRESS TO ACCESS NEXT WORD. 

sSET OFFSET FOR EACH TRANSMISSION START TO 2. 


3* 
s INITIALISE THE DUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STATE 
s DICTATED BY THE CONTENTS OF THE TX/RX CONTROL BLOCK. 


JSR 


PC, TXRINI 


sINITIALISE Dur. 


$* 
3 SET UP CONTROL BLOCK FOR LINES IN GROUP I. 


se 
s INITIALISE THE DUT AND 


83 


MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
MOVB 
INC 


MOV 


ACTLNS, (RO) 
LGRP2M,(CRO)-+ 
ee ne ROT 


#2,(RO) 


s DICTATED BY THE CONTENTS OF 


3? 


JSR 


PC, TXRINI 


sGET START ADDRESS OF CONTROL BLOCK. 

sSET LPR PARAMETER FOR LINES TO RECEIVE DATA. 
sLNCTRL PARAMETER, ENABLE RECEIVERS. 

sSTART ADDRESS OF DATA PATTERN, 

sDATA PATTERN LENGTH SET TO 16 


sNUMBER OF DATA PATTNS TO TRANSMIT ON LINGRP1. 


sBIT MAP OF LINES TO INITIALISE. 

sCLEAR THE UNWANTED LINES FROM BIT MAP. 

sSET LOOPBACK MODE. 

s INCREMENT ADDRESS TO ACCESS NEXT WORD. 

sSET OFFSET FOR EACH TRANSMISSION START TO 2. 


THE ASSOCIATED POINTERS AND COUNTERS, TO THE STATE 
THE TX/RX CONTROL BLOCK. 


sINITIALISE DuT. 


SET-UP THE REQUIRED LPR PARAMETERS NEEDED FOR THE CORRECT RECEPTION OF DATA 


s ON ASSOCIATED IN-ACTIVE LINES. 
3* 


3* 
; INITIALISE LPR PARAMETERS FOR LINE GROUP 1. 
3° 


OMAPLNS ,R1 
ay hase 


72% ,CBLPRA 
PC, TXRINI 


sSET UP BIT MAP CORRE SPONDING TO ALL LINES, 


LINE BIT MAP, 

sGENERATE A BIT MAP OF NONE EXISTANT LINES. 
BIT OF INACTIVE LINES, 

“NONE EXISTANT” INACTIVE LINES. 
sONLY PASS LGRP1 ASSOCIATED LINE BIT MAP, 
sSET UP BIT MAP IN CONTROL BLOCK, 
sCLEAR REPEAT TX COUNT IN CONTROL BLOCK, 
sSET-UP COMPLEMENTARY LPR PARM FOR LGRPL. 
sINITIALISE INACTIVE LINES IN LGRP2, 


3? 
; INITIALISE LPR PARAMETERS FOR LINE GROUP 2. 


SEQ 147 


Fle 
OMU-11 FUNC TST PART4 MACRO M1200 15-MAR-84 09:48 PAGE 101-2 SEO 148 
GLOBAL Si BROUT INE - SPLSUP - 


5697 s- 
5696 025116 155050 MOY ACTLNS.R2 sGET THE ACTIVE (TX) LINE BIT MAP. 
5699 025122 COM oe sGENERATE A BIT MAP OF INACTIVE LINES. 
5700 025124 BIC R1,R2 sCLEAR ANY NONE EXISTANT INACTIVE LINES. 
$701 025 155104 BIC LGRP1M,R2 sONLY PASS LGRP2 ASSOCIATED LINE BIT MAP. 
5702 0251 155776 MOV R2,CBMAPA SET-UP BIY MAP IN CONTROL BLOCK. 
$703 025136 000036 MOV 70$ ,CBLPRA sSET-UP COMPLAMENTARY LPR PARAM FOR LGRP1. 
ze 025144 000534 JSR PC, TXRINI sINITIALISE INACTIVE LINES IN LGRP1. 

3° 
57 s OISABLE RECEIVERS ON ALL LINES TO ENSURE THAT ONLY THE RECEIVERS OF THE 
5707 s ASSOCIATED ACTIVE (TX) LINES ARE ENABLED .(STAGGARED LOOPBACK ) 
th 3 RE-ENABLE RECEPTION ON THE CORRECT ASSOCIATED LINES. 

ge- 
$710 025150 177777 MOV @MAPLNS RS sSET-UP BIT MAP FOR ALL LINES. 
grit 025154 177124 JSR PC, RXDSBL ;DISABLE RX ON ALL LINES. 

3* 
5713 ; ENABLE RECEIVERS ON ASSOCIATED (RX) LINES. 

g- 
5715 025160 155006 MOV ACTLNS,.RS sGET ACTIVE (TX) LINE BIT MAP. 
5716 025164 172212 JSR PC ,CONMAP sGENERATE AN ASSOCIATED (RX) LINE BIT MAP. 
572 025170 177204 JSR PC ,RXENBL sENABLE RECEIVERS ON ASSOCIATED LINES. 
5719 025174 60%: PASS sRESTORE GRP'S. 

025174 JSR PC,aCSP). sRETURN TO PREGOS SUBRT. 

5720 025176 RTS PC 


59721 025200 
5722 025202 


70%; -WORDB O sLOCAL STORAGE OF LPR PARAMETER LGRP2. 


728; -WORD 0 sLOCAL STORAGE OF LPR PARAMETER LGRP1. 


Ortak! SiBfoltine**"* 


0 
025222 


004567 
010146 


G 
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160114 
025220 


-SBTTL GLOBAL SUBROUTINE 


see OOOOOOOOOOSEDSOSESDSSSESOEESEOSESEOEESSEEEEELEDEREEEDEEDEEOSEEECELEOCCES 


ke 


- STPSw - 
SSOR STATUS WORD - 


- SET PROCE 
THIS ROUTINE SETS THE PSW TO THE CONTENTS OF Rl. 
Rl - CONTAINS THE NEW PSw SETTINGS 


- SET TO THE CONTENTS OF Ri 
JSR PC. STPSw 


USED IN THE DMA ADDRESS TEST TO SET gy acne 


PRIORITY WITHOUT MAKING A CALL TO THE 


NONE 


5 OOODSRSEAEEEEEDESESEDEOEEESESSOEEEDSEDDADEDEEEEEADEEERERDDDEEERERDESEEEEO‘S 


3;* 
;¢ 
3? 
3¢ INPUTS: 
3% 
3° OUTPUTS: PSW 
;¢ 
3 CALLING SEQUENCE: 
34 
34 COMMENTS: 
;* 
3% 
3¢ SUBROUTINES CALLED: 
STPSW:: SAVE 
JSR 
MOV R1,-CSP) 
MOV #ADDR, -C SP) 
RTI 
ADOR : PASS 
JSR 
RTS PC 


RS ,.PREGOS sCALL REGISTER SAVE SuUBRT. 
sPUSH THE NEW PSW CONTENTS ONTO THE STACK 
sPUSH THE NEW PC VALUE ONTO THE STACK 
sLOAD THE NEW PC AND PSw 


H 
PC ,a(SP)- sRETURN TO PREGOS SU@RT. 
;RE TURN 


Bttak! SHifiolfines* 


5773 025224 
025224 


5784 025244 


5791 025246 
025250 


5806 
5807 025306 


016703 


001427 


016702 


Hie 
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160074 


154736 
155242 


154660 


-SBTTL GLOBAL SUBROUTINE - TXDONE - 


s¢e COCPSESSEOOSSSESSSSOSESSSOSESOSESESOSELESESEDEDEEEDEDEEOLEDOELESEOS eee066060 


- - TRANSMISSION DONE - 

36 THIS SUBROUTINE IS USED IN THE TRANSMISSION/RECEPTION TESTS TO ALLOW 

3° TIME FOR TRANSMISSION TO COMPLETE ON OUTSTANDING LINES. 

3;¢ 

3@ INPUTS: ACTLNS - CONTAINS BIT MAP OF ALL ACTIVE LINES. 

36 TXDONF - TX DONE FLAGS, SET FOR LINES THAT HAVE SENT ALL CHARS, 
54 CHCNT - TABLE CONTANING THE NUMBER OF CHARS TO BE Tx'D. 

4 

3* 

3* OUTPUTS: TRANSMISSION INTERRUPTS ARE DISABLED. 

3* 

3* CALLING SEQUENCE: JSR PC, TXDONE 

34 

3* COMMENTS: 

3% 

3* SUBORDINATE ROUTINES CALLED: MSLOOP , MUL 16U. 

g-- SAPOROLPSODESESESEASEEEEESOESEOOEEEEDEDEODEDEDEEEREDEREEEEEEERDEDEARSOEECS 
TXDONE:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SuUBRT. 


3 * 

; CHECK IF ALL ACTIVE LINES HAVE COMPLETED TRANSMISSION, 

; IF ANY HAVE NOT YET COMPLETED, DETERMINE THE Tx CHAR COUNT FOR A 

; LINE THAT HAS OUTSTANDING CHARACTERS TO TRANSMIT. USING THIS VALUE, 

s CALCULATE THE TIME-OUT VALUE NEEDED AT THE CURRENTLY SELECTED BAUD RATE, 
g- 


MOV ACTLNS,RS ;SET THE ACTIVE LINE BIT MAP, 

MOV TXDONF ,R2 sGET THE BIT MAP OF LINES THAT HAVE COMPLETED, 
BIC R2,R3 sGENERATE A BIT MAP OF LINES THAT ARE STILL TX, 
TST RS sCHECK IF ALL LINES HAVE COMPLETED Tx, 

BEQ 63% sGO OISABLE TX INTERRUPTS IF Al.!. DONE. 


3* 

; FIND A LINE THAT HAS NOT COMPLETED TRANSMISSION. 

+ OBTAIN THE EXPECTED CHARACTER COUNT FOR THAT LINE (WHICH IS THE SAME FOR 
s ALL OTHER LINES WITH OUTSTANDING Tx‘S). 


3; CALCULATE TIME-OUT VALUE 
3° 


CLR R4 sCLEAR LINE NUMBER COUNTER. 
MOV #1,R2 sSELECT BIT MAP FOR THE FIRST LINE. 
2s: BIT R2,RS sSEE IF THIS LINE HAS COMPLETED, 
BNE 44 sBRANCH IF THIS LINE HAS NOT COMPLETED Ix, 
ROL R2 sSHIFT THE LINE BIT MAP FOR THE NEXT LINE. 
INC R4 s INCREMENT THE LINE NUMBER COUNTER, 
BR 2s sLOOP TO CHECK THE NEXT LINE, 
43: ASL RS : sLINE NUMBER X 2 TO OBTAIN OFFSET INTO TABLE. 
MOV CHCNTB(RS).R1 ;GET THE EXPECTED NUMBER OF CHARS TO BE Tx'D, 
MOV RXTOUT ,R2 sGET THE CURRENT TIME-OUT VALUE FOR ONE CHAR. 
JSR PC MUL 16U s(NUMBER OF CHARS TO TX) x (TIME-OUT OF 1 CHAR) 
ASL Ri sMULTIPLY DELAY TIME BY 2 TO GIVE A SAFE VALLE. 


3? 
; WAIT FOR ALL OUSTANDING TRANSMISSIONS TO COMPLETE OR TIME -OUT, 
; DISABLE ALL TRANSMISSION INTERRUPTS, 


MOV —sACTLNS..R2 PASS A BIT MAP OF THE BITS To TEST. 


[12 
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ced! SHiiol# ine “*"4 


5608 025512 010203 MOV R2,R3 sPASS THE EXPECTED STATE OF THE TXDONF. 
5809 025314 012704 002502 MOV @TXDONF ,R4 sPASS THE ADDRESS OF THE WORD TO TEST. 
5810 025320 004767 173664 JSR PC .MSLOOP sWAIT FOR TIME-OUT OF TX COMPLETION. 
seis 025324 004767 000270 6%: JSR PC, TXIEO sOISABLE ALL TX INTERRUPTS. 

he 
5613 025330 60$: PASS sRESTORE GPRS. 

025330 004736 JSR PC .a(SP)- sRETURN TO PREGOS SUBRT. 

5814 025332 000207 RTS PC 


20 
025424 

5868 
5869 025426 


J12 
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000014 


-SBTTL GLOBAL SUBROUTINE - TXDSBL - 


3*¢ #£6446466%4 ©9266646666664646666464646606604046440000000446 SOLCOCHEAESESEEAECEAERSEEESEES 


3:4 - TRANSMITTER DISABLE - 
:4 THIS SUBROUTINE IS USED TO DISABLE TRANSMISSION - SELECTED LINES Br, 
34 CLEARING THE ASSOCIATED TX.ENABLE BIT ON THE DUT 
3;* 
s@ INPUTS: RS - BIT‘S SET ey TO LINES ON WHICH TO CLEAR TX.ENABLE. 
;4 CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 
34 IES AT - CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
:* NUMLIIS - EQUATED TO BE THE MAXIMUM NUMBER OF LINES AVAILABLE. 
34 TXAD2A - CONTAINS THE ADDRESS OF THE TBUFFAD2 REGISTER. 
;# 
3# OUTPUTS: RS - BIT’S SET INDICATE THE INITIAL STATES OF ALL TX.ENBLE BITS, 
34 TBUFFAD2 - THE STATE OF THE TX.ENBLE BIT MAY BE ALTERED. 
;4 THE CONTENTS OF THE IND.ADD.REG FIELO IN THE CSR ARE DESTROYED. 
34 
3# CALLING SEQUENCE: JSR PC, TXDSBL 
fF 
:®@ COMMENTS: 
3* 
s# SUBORDINATE ROUTINES CALLED: NONE. 
s-- hte LLL LULL LTT TTT TTT TT TTT TTT TTT TT eee eT errr e eee 
TXOSBL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
RS ,PREGOS sCALL REGISTER SAVE SUBRT 
MOV RS,RO sCOPY BIT MAP OF LINES TO DISABLE TRANSMISSION, 
MOV *BITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
MOV TXAD2A ,R2 sGET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
INC Re /GET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
MOV ONUMLNS ,R3 sGET MAXIMUM LINE NUMBER PLUS ONE. 
MOV IESTAT,R4 sGET THE STATES OF THE INT ENABLE BITS. 
CLR RS sLOG POSSIBLE TX DISABLED ON ALL LINES. 
s* 
; SELECT EVERY LINE IN TURN, AND LOG THE STATE OF EACH TX.ENABLE BIT, 
ie 
2s: MOV R4,@CSRA sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
TSTB cR2) sCHECK STATE OF TX.ENABLE BIT ON meet aes 
;SKIP_ NEXT INSTRUCTION IF Tx, ENABLE CLE 
81S Ri, RS sLOG TX ENABLE BIT SET FOR SELECTED CINE. 


a ig ge pa ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE Tx DISABLE 


i 
BEQ 


6$ 
BICB #BIT7,(R2) T ON SELECTED LINE, 
63: INC RS 3 ;PREPARE TO SELECT "REGISTERS FOR NEXT LINE, 
SSHIFT BIT MAP FOR NEXT LINE, 
sDECREMENT LINE NUMBER 
2$ sLOOP TO CHECK NEXT LINE, 


sRESTORE raat” EXCEPT 


MOV RS, RSSLOT( SP sPUT RS IN STACK SLOT. 


JSR PC, (SP )+ sRETURN TO PREGOS SUBRT, 


RS - PREVIOUS STATES OF ALL TX.ENABLE BITS, 


SEQ 152 


BteAL StBRodt ine *" 


5922 
5923 
$924 


025 
025510 
025512 


025514 
025514 
025520 


025522 
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157670 


000001 
154546 


000020 
154554 


154512 


000200 


000014 


-SBTTL GLOBAL SUBROUTINE 


- TXENBL - 


se OOPPLOROSEESESEEEESESEEOSEESEESSOAEEEESSOERDEDEEEDADEDDEEEESADEDEEEELEOORES + 


36 - TRANSMITTER ENABLE - 
34 THIS SUBROUTINE IS USED TO ENABLE TRANSMISSION ON SELECTED LINES By 
34 SETTING THE ASSOCIATED TX.ENABLE BIT ON THE DUT. 
Le 
3*# INPUTS: RS - BIT‘S SET CORRESPOND TO LINES ON WHICH TO SET TX. ENABLE. 
3* CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 
34 IESTAT - CONTAINS THE STATE OF TXIE AND RXIE BITS IN THE CSR. 
34 NUMLNS - EQUATED TO BE THE MAXIMUM NUMBER OF LINES AVAILABLE. 
34 TXAD2A - CONTAINS THE ADDRESS OF THE TBUFFAD2 REGISTER. 
3* 
3# OUTPUTS: RS - BIT‘S SET INDICATE PREVIOUSLY DISABLED LINES. 
34 TBUFFAD2 - THE STATE OF THE TX.ENBLE BIT MAY BE ALTERED. 
34 THE CONTENTS OF THE IND.ADD.REG FIELD IN THE CSR ARE DESTROYED. 
34 
3# CALLING SEQUENCE: JSR PC, TXENBL 
3* 
3* COMMENTS 
34 
3# SUBORDINATE ROUTINES CALLED: NONE. 
t-- SABEBREEESEEERESEREEAEEEEESEADEREEDEEAAEDDDAEADEDREDADDDREEEDDEDALARRDE LES 
TXENBL:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS ;CALL REGISTER SAVE SUBRT. 
MOV RS,RO sCOPY BIT MAP OF LINES TO ENABLE. 
MOV @BITO,R1 sINITIALIZE THE SELECTED LINE BIT MASK. 
MOV TXAD2A ,R2 sGET THE ADDRESS OF THE TBUFFAD2 REGISTER. 
INC Re sGET THE ADDRESS OF THE MSBYTE OF TBUFFAD2 REG. 
MOV ONUMLNS ,R3 sGET MAXIMUM LINE NUMBER. 
MOV IESTAT,R4 sGET THE STATES OF THE INT ENABLE BITS. 
CLR RS sCLEAR TX.ENABLE BIT LOG OF DISABLED LINES, 
3* 
; SELECT EVERY LINE IN TURN,AND LOG ANY TX.ENBLE BIT THAT IS CLEAR. 
| tie 
2s; MOV R4,8CSRA sWRITE TO DUT CSR TO SELECT LINE REGISTERS. 
TSTB = §CR2) sCHECK STATE OF TX.ENABLE BIT ON SELECTED LINE, 
BMI 4$ sSKIP NEXT INSTRUCTION IF TX.ENABLE SET. 
BIs R1,R5 sLOG TX ENABLE BIT CLEAR FOR SELECTED LINE. 
s+ 
+ SET TX.ENBLE ON LINES THAT HAVE A CORRESPONDING BIT SET IN THE TX ENABLE 
; LINE BIT MAP, 
g.- 
as: BIT R1,RO0 sCHECK STATE OF TX.ENABLE LINE BIT MAP. 
BEG 6$ sBRANCH IF THIS LINE TO REMAIN UNALTERED. 
BISB #BIT7,(R2) sENABLE TRANSMISSION ON SELECTED LINE. 
6$; INC R4 sPREPARE TO SELECT REGISTERS FOR NEXT LINE. 
ASL Ri sSHIFT BIT MAP FOR NEXT LINE. 
DEC R3 sDECREMENT LINE NUMBER, 
BNE es sLOOP TO CHECK NEXT LINE. 
60%; PASS R5 sRESTORE GPRS ,EXCEPT 
MOV RS, RSSLOT( SP) sPUT RS IN STACK SLOT. 
JSR PC,a( SP)» sRETURN TO PREGOS SUBRT. 
sRS5 - LINE BIT MAP CORRESPONDING TO THE 
ars ec ; PREVIOUS LINES THAT WERE DISABLED. 


SEQ 15% 


L1e 
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5926 -SBTTL GLOBAL SUBROUTINE - TXFRPR - 
$927 see COPOOSSODOOOSESESSESSESESEODEDEEEADEDESEEESEESEDDERDEDEDEEEEREEEEEEEEEEEOOS 
5928 36 - TRANSMIT FRAMMING ERROR DATA ROUTINE - 
§929 3* THIS ROUTINE IS USED TO INITIATE DMA MODE TRANSMISSION 
5930 34 IN THE FRAMMING ERROR TEST. IT SENDS A SINGLE CHARACTER DMA BUFFER ON 
$931 3¢ EACH ACTIVE LINE IN THE BIT MAP, TO CAUSE FUTURE Tx INTERRUPTS WHICH 
saat 34 WILL CONTINUE THE TRANSMISSION IF MORE THAN ONE BUFFER IS TO BE SENT. 
a 
34 ;« INPUTS: R4 - CONTAINS THE LINES ON WHICH Tx IS TO TAKE PLACE. 
5935 34 ACTLNS - ACTIVE LINES BIT MAP. 
5936 34 SITTBL - LABEL OF TABLE OF WORDS EACH WITH A BIT SET. 
5937 34 CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 
5938 34 DPENDB - BASE OF THE DATA PATTERN END TABLE (ENTRY PER LINE). 
5939 34 - BASE OF THE DATA PATTERN LENGTH TABLE. 
5940 54 TESTAT - PRESERVED STATES OF THE DUT INTERRUPT ENABLE BITS. 
5941 34 NUMLNS - EQUATED TO NUMBER OF LINES ON A DUT. 
5942 34 TXCNTB - LABLE AT BASE OF THE TX CHARACTER COUNTER TABLE. 
3948 34 TXPTRB - LABEL AT BASE OF THE TX DATA PATTERN POINTERS TABLE. 
;* 
5945 3# OUTPUTS: CSR - DUT CSR_IND.ADR.REG FIELD IS DESTROYED. 
5946 +4 TXCNTX - COUNTERS INCREMENTED FOR LINES ON WHICH CHARS SENT. 
2347 34 TXINTF - TX INT FLAGS (BIT SET IF DMA.HO FOUND SET ON LINE). 
3 
444 3# CALLING SEQUENCE: JSR PC, TXFRPR 
3% 
5951 ;@ COMMENTS: THIS ROUTINE ASSUMES THAT AT LEAST ONE DATA PATTERN SHOULD BE 
5952 34 TRANSMITTED ON EACH ACTIVE LINE. 
sons 34 INTERRUPTS MUST BE DISABLED WHEN CALLING THIS ROUTINE, 
3% 
5955 3# SUBORDINATE ROUTINES CALLED: DODMA. 
5956 s-- ao RARSPSSSEESEDEEODASEOOSEEESDEADDASERARDODDEDEEEDAADDDDEEDREEDEREEDSAALLD 
5957 025524 TXFRPR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
025524 004567 157574 JSR »PREGOS sCALL REGISTER SAVE SUBRT. 
5958 025530 016705 154436 MOV ACTLNS,RS sGET THE ACTIVE LINE BIT MAP. 
5959 025534 005104 COM R4 sGET BIT MAP OF LINES THAT WILL RECEIVE DATA, 
soot 025536 040405 BIC R4,R5 sCLEAR LINES THAT WILL RX FROM TX LINE BIT MAP, 
3¢ 
secs ; SET UP LOOP WHICH HANDLES ONE LINE PER ITERATION. 
ge 
tee 025540 005001 CLR Ri sCLEAR THE LINE NUMBER COUNTER. 
3° 
$49. s IF THE LINE IS INACTIVE SKIP TO SELECT THE NEXT LINE. 
a 
5968 025542 000241 2s: CLC ;CLEAR BOOLEAN REGISTER. 
5969 025544 006005 ROR RS sSHIFT BIT MAP OF LINES TO TX ON INTO BOOL.REG. 
Sort 025546 103017 Bcc 6$ 3DON’'T TX ON THIS LINE IF IT IS NOT ACTIVE. 
3* 
5972 ; LINE IS ACTIVE. 
5973 : INITIATE DMA ON THIS LINE. 
Sere ; GET THE DATA PATTERN LENGTH FOR THIS LINE. 
i 
5976 025550 010104 MOV R1,R4 ;COPY LINE NUMBER, 
5977 025552 006304 ASL R4 sCALCULATE WORD OFFSET FOR THIS LINE. 
5978 025554 016403 003202 MOV DPLENB(R4),R3 sGET DATA PATTERN LENGTH FOR THIS LINE. 
3h 025560 016402 003342 MOV TXPTRBC(R4),R2 ;PREPARE TO PASS DATA PATTERN ADR TO DODMA RIN. 


3* 
5981 ; WRITE DMA PARAMETERS TO THE DUT. 


5962 

5983 025564 
5984 025570 
5965 

5986 

5987 

5988 025572 
5989 025600 
5990 

5991 

5992 

5993 025602 
5994 

5995 

5996 

5997 0 

5998 025610 
5999 025612 
6000 

6001 025614 


Bi'tekl SHOUT ine” 


004767 
103404 


956467 
000402 
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172122 
002364 154464 


003502 


"SR PC.DODHA 
BCs SKIP ERROR IF DODMA WAS SUCCESSFUL. 


s* 
; Ser THE PROPER BIT OF THE TX INTERRUPT FLAGS TO INDICATE THE LINE ERROR. 


SIS - ¢ elaaaiia TXINTF ; INDICATE THE ERROR. 
BR sSKIP UPDATING POINTERS AND COUNTERS. 


"UPDATE THE TX CHARACTER COUNT FOR THIS LINE. 
g- 


4%: ADD R3, TXCNTB(R4) sADD THE DATA PATTERN LENGTH TO Tx CHAR COUNT. 
s* 
s INCREMENT LINE COUNTER,GOTO NEXT LINE IF NOT DONE . 
ied 
6%: INC R1 s INCREMENT THE LINE i” 
TST RS ;TEST THE TX LINE BIT M 

BNE 2$ sLOOP TO SEND CHAR TO ANOTHER LINE IF NOT DONE. 
60%: PASS sRESTORE GPRS. 

are ee JSR PC, @(SP)+ sRETURN TO PREGOS SUBRT. 


Nie 
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6004 -SBTTL GLOBAL SUBROUTINE - TXIEO - 

6005 see *APPEEEEEESESESESESESSOASESESSSDEDOEESEAEEEERAAEEEEERERDESEDEDEDREEEERRLE‘E‘S 

6006 34 - TRANSMITTER INTERRUPT DISABLE - 

6007 34 THIS ROUTINE IS USED TO DISABLE TRANSMITTER INTERRUPTS IN THE OHU11. 

6008 ;* 

rr 3* INPUTS: NONE . 

5* 

6011 s* OUTPUTS: THE 1X.INT.ENBL BIT IS CLEARED IN THE DUT CSR. 

6012 34 IESTS7 -CONTAINS THE UPDATED STATUS OF THE TX AND RX INTERRUPT 

6013 34 ENABLE BITS. 

6014 34 

cota 3# CALLING SEQUENCE: JSR PC, TXIEO 

3* 

6017 ;* COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELD IN 

rte 34 THE DUT CSR ARE DESTROYED. 
3% 

6020 3* SUBORDINATE ROUTINES CALLED: NONE. 

6021 g-- a REPEPEEEEEESEEEREREEEEEEEEEEEESEORREAAEARADAEAREDAADDRRARADAEEDARLEEREORS 

6022 025620 010046 TXIEO:: MOV RO, -(SP) sSAVE CONTENTS OF RO ON THE STACK. 

6023 025622 GETPRI -(SP) sSAVE CURRENT PROCESSOR PRIORITY ON THE STACK. 
025622 104440 TRAP CSGPRI 
025624 010046 MOV RO, -( SP) 

6024 025626 SETPRI #PRIO7 ; IGNORE ANY INTERRUPTS THAT MAY BE GENERATED. 
025626 012700 000340 MOV #PRIO7,RO 
025632 104441 TRAP CSSPRI 

6025 025634 042767 177677 154372 BIC #177677, IESTAT ;CLEAR TX.INT.ENBL BIT IN IESTAT. 

6026 025642 016777 154366 154330 MOV IESTAT,@CSRA sDISABLE TX INTERRUPTS. 

6027 025650 SETPRI (SP)>+ sENABLE INTERRUPTS TO THE PROCESSOR AGAIN, 
025650 012600 MOV (SP )+,RO 
025652 104441 TRAP CSsSPRI 

6028 025654 012600 MOV C(SP)+,RO sRESTORE RO. 

6029 025656 000207 RTS PC 
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6050 025660 052767 
6051 025666 042767 
6052 025674 016777 
6053 025702 000207 
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-SBTTL GLOBAL SUBROUTINE - TXIE1 - 


se OOOODDODODDOSEDDOSSSODAODOSSSSOEESOODOOSEEEDOOEEEEDEEEEOEEEEEDEOCEOOELACCS 


3° - TRANSMITTER INTERRUPT ENABLE 

36 THIS ROUTINE I3 USED TO ENABLE TRANSMITTER INTERRUPTS IN THE UHULL. 

;* 

s* INPUTS: NONE . 

34 

3* OUTPUTS: THE TX.INT.ENBL BIT IS SET IN THE DUT CSR. 

34 IESTST -CONTAINS THE UPDATED STATUS OF THE Tx AND RX INTERRUPT 
$@ ENABLE BITS. 

34 


s@ CALLING SEQUENCE: JSR PC, TXI€1 


3¢ COMMENTS: THE CONTENTS OF THE INDIRECT ADDRESS REGISTER FIELO IN 

;° THE DUT CSR ARE DESTROYED. 

34 

3# SUBORDINATE ROUTINES CALLED: NONE. 

t-- OOOO OOOOOOOEOESOOEOESOOEEEELEEEEEEEEREEREEEEDEEENDEDEEEREEEEOEESEEEOELS 
040000 1543546 IXIE1:: BIS OBITI4,IESTAT SET TX. INT.ENBL BIT IN IESTAT. 
137677 154340 BIC #157677, IESTAT CLEAR ALL BITS EXCEPT Tx Rx I'E BITS. 
154334 154276 are a sENABLE TX INTERRUPTS, 


SEG 


C13 
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6055 -SBTTL GLOBAL SUBROUTINE - TXRINI - 
6056 s*e COPOPPOSSSESSESOSDESESESEEOOSOSEDOEDEEEEEDEEOEEDEDDDEELLES %2O66666666066666 
? 36 - TRANSMIT AND RECEIVE INITIALIZATICN ROUTINE - 
6058 ;6 THIS SUBROUTINE PERFORMS THE INITIALIZATION OF THE VARIOUS POINTERS, 
6059 :¢ COUNTERS, AND FLAGS WHICH ARE USED DURING THE TRANSMISSION AND 
6060 30 RECEPTION PORTION OF A TEST. THIS INITIALIZATION IS PERFORMED ON 
6061 3° THE SPECIFIED LINES ONLY, OTHER LINE VARIABLES REMAIN UNCHANGED. 
34 
Soss 2 INPUTS: CHCNTB - LABEL AT BASE OF LINE CHARACTER COUNT TABLE. 
6064 16 CHRTOT - MAX ® OF CHARS TO RX ON LINES ALREADY INITIALIZED. 
6065 ;¢ DPENDB - LABEL AT BASE OF LINE DATA PATTERN T ‘ 
3 DPLENB - LABEL AT BASE OF LINE DATA PATTERN LENGTH TABLE. 
6067 36 EXCNTB - LABEL AT BASE ADDRESS OF EXTRA CHAR COUNTERS TABLE. 
6068 ;¢ IESTAT - PRESENT STATE OF THE RX.IE AND TX.Ie BITS. 
9 3¢ - EQUATED TO NUMBER OF LINES ON THE DUT. 
6070 3¢ RXCNTB - LABEL AT BASE SS OF RX CHARACTER COUNTERS TABLE. 
6071 ;6 RXPTRB - LABLE AT BASE ADR OF "NEXT RX CHAR” POINTERS TABLE. 
6072 ;6 TXCNTB - LABEL AT BASE ADDRESS OF TX CHARACTER COUNTERS TABLE. 
6073 36 TXPTRB - LABEL AT BASE ADR OF “NEXT TX CHAR’ POINTERS TABLE. 
6074 ;6 CBB - LABEL AT BASE OF TX/RX CONTROL BLOCK. 
6075 ;6 CB CONTENTS - TX/RX CONTROL BLOCK CONTAINS THE FOLLOWING: 
6076 ;6 CBLPRA - DUT LPR CONTENTS. 
6077 30 CBLNCA - DUI LNCTRL CONTENTS. 
6078 ;¢ CBDPAA - ADDRESS OF BEGINNING OF DATA PATTERN. 
6079 34 CBOPLA - LENGTH IN BYTES OF DATA PATTERN. 
6080 3@ CBDPNA - NUMBER OF DATA PATTERNS [TO TRANSMIT. 
6081 34 CBMAPA - BIT MAP OF LINES TO BE INITIALIZED. 
6082 36 CBLPBA - TYPE OF LOOPBACK TO BE USED FOR TEST. 
6083 34 CBOFSA - AMOUNT TO OFFSET EACH TX START IN THE DATA PAT, 
6084 36 TXRXLB - LABEL AT BASE OF TX/RX LINE ASSOCIATION TABLE. 
5 34 
$086 3@ OUTPUTS: CHCNT - TABLE OF NUMBER OF LINE TX CHARACTERS (INITIALIZED). 
6087 3 CHRTOT - MAXIMUM NUMBER OF CHARS TO RECEIVE (2 « PAT LENGTH). 
6088 30 DPEND - TABLE OF DATA PATTERN ENDS (INITIALIZED). 
6089 30 DPLEN - TABLE OF DATA PATTERN LENGTHS CINITIALIZED). 
6090 36 DUT LNCTRL - LINE CONTROL REGISTERS (INITIALIZED). 
6091 30 DUT LPR - LINE PARAMETER REGISTERS (INITIALIZED). 
6092 ;¢ EXCNT - TABLE OF EXTRA RX CHAR COUNTS (CLRED, SELECTED LINES), 
6098 34 RXCNT - TABLE OF RX CHARACTER COUNTS (CLRED, SELECTED LINES). 
6094 34 RXDONF - “RECEPTION DONE” FLAGS (CLEARED FOR SELECTED LINES). 
6095 ;6 RXPTR - TABLE OF RECEIVE POINTERS (INITIALIZED). 
6096 3@ TXCNT - TABLE OF TX CHARACTER COUNTERS (CLRED, SELECTED LINES). 
6097 34 TXDONF - “TRANSMISSION DONE” FLAGS (CLRED FOR SELECTED LINES), 
6098 30 TXPTR - TABLE OF TRANSMIT POINTERS (INITIALIZED). 
6099 36 TARXL - TX/RX LINE ASSOCIATION TABLE (INITIALIZED). 
6100 3¢@ 
eed 3* CALLING SEQUENCE: JSR PC, TXRINI 
34 
6108 * COMMENTS: If THE CALCULATION OF THE CHRTOT VALUE (2 TIMES THE DATA 
6104 H PATTERN LENGTH) RESULTS IN A NUMBER GREATER THAN 64K THEN 
6105 36 CHRTOT IS INITIALIZED TO 64K - 1. 
6106 ;@ THIS ROUTINE WILL NOT FORCE INTERNAL LOOPBACK BASED ON THE 
610? 36 LOOPBACK TYPE IN CBLPBA. THE USER MUST SET UP CBLNCA CORRECT: } 
6108 30 TO GET INTERNAL LOOPBACK. 
6109 3° 
6110 ¢¢ SUBORDINATE ROUTINES CALLED: WIWLNC,WTWLPR, 


6i11 3-- CORPOESEOESEEASEDEDED ORES! SEDOOOSEDOEEEOOOOSEDEOEEEEE DEEDES EEEEEESOSEOESES 


SMFAPAPMARARHROEH 
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016702 
004 


012767 


016764 
010364 


005064 
010564 


010402 
026727 
001003 
006202 
116202 
010264 
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TXRINi:: SAVE gonve CONTENTS OF GPRS RO THRU RS, 
157414 JSR 5 .PREGOS :;CALL REGISTER Save SUBRT. 
3°? 
s SET UWP THE LPR AND LNCTRL REGISTERS AS SPECIFIED IN THE TX/RX CONTROL BLOC:*. 
3 
155220 MOV CBMAPA,RS sGET THE BIT MAP OF SELECTED LINES. 
155204 “OV CBLNCA,RO 1GET THE NEW LNCTRL CONTENTS. 
155212 000001 CMP CBLPBA, 41 ;sCHECK IF INTERNAL LOOPBACK HAS BEEN SELECTED. 
BNE 2s sSKIP SETTING INT. LOPBCK IN MAINTENANCE FIELD 
BIS 200 ,RO 3SET INTERNAL LOOPBACK IN MAINTENANCE FIELD. 
001126 23: JSR PC, WTWLNC ;SET UP THE LNCTRL REGS FOR SELECTED LINES. 
155156 MOV CBLPRA,RO ;GET THE NEW LPR CONTENTS. 
001146 JSR PC ,.WTWLPR sSET UP THE LPR REGISTERS FOR SELECTED LINES. 
177454 JSR PC, TXENBL sENABLE TX FOR ALL SELECTED LINES. 
: SET UP AND BEGIN LOOP WHICH HANDLES ONE LINE PER ITERATION. 
g- 
CLR R4 ;CLEAR THE LINE OFFSET. 
155144 MOV CBDPAA,RS sINITIALIZE THE TX START ADDRESS VALUE. 
155142 MOV CBDPLA,R3 sGET THE LENGTH OF THE DATA PATTERN. 
ADD R5,R3 sCALCULATE END ADDRESS OF THE DATA PATTERN. 
002364 155136 43; BIT BITTBL(R4),CBMAPA ;CHECK IF THIS LINE IS SELECTED FOR INIT. 
BEG 12$ ;SKIP SET UP IF LINE IS NOT SELECTED. 
3;* 
; THIS LINE IS SELECTED FOR INITIALIZATION. 
; SET UP PROPER ENTRY IN NUMBER OF CHARS TO Tx AND Rx TABLE. 
$ INCLUDE CHAR COUNT ON THIS LINE IN MAX ALLOWABLE CHAR TOTAL FOR ALL LINES. 
= 
155124 MOV CBDPLA,R1 sGET THE LENGTH OF THIS LINE’S DATA PATTERN, 
155122 MOV CBDPNA ,R2 ;GET THE NUMBER OF PATTERNS TO TX AND Rx. 
173424 JSR PC ,.MUL16U sCALCULATE THE TOTAL NUMBER OF CHARS TO TX/Rx. 
003442 MOV R1,CHCNTB(R4 ) sSET UP THE NUMBER OF TX/RX CHARS FOR LINE. 
154452 ADD R1,CHRTOT sADD TWICE THE NUMBER OF CHARACTERS TO Tx/Rx 
BCS 6% s ON THIS LINE TO THE TOTAL NUMBER OF CHARS 
154444 R1,CHRTOT 3 WHICH WE WILL ALLOW TO BE RECEIVED ON 
BCC 8% ; ALL LINES. 
177777 154434 a MOV @-1,CHRTOT ; SET MAX CHAR TOTAL TO -1 IF OVERFLOW. 
$ 
+ 
; SET UP THE DATA PATTERN END AND LENGTH FOR THIS LINE, 
155062 003202 MOV CBDPLA,DPLENB(R4) ;SET UP Tx DATA PATTERN LENGTH FOR THIS LINE. 
003142 MOV R3, OPENDB(R4 ) sSET UP TX DATA PAT END ADDRESS FOR THIS LINE. 
; SET UP THE Tx COUNTER AND CHARACTER POINTER FOR THIS LINE, 
3- 
003502 CLR TXCNTB(R4 ) sCLEAR THE TX COUNTER FOR THIS LINE. 
003342 MOV R5, TXPTRB( RS) sSET UP THE TX CHAR POINTER FOR THIS LINE. 
3* 
; SET UP THE TX/Rx LINE ASSOCIATION OFFSET TABLE ENTRY FOR THIS LINE. 
Mes 
MOV R4 RO sSELECT LINE OFFSET FOR NON-STAGGERED LPAx. 
155044 000002 CMP “BLPBA, @2 sTEST FOR STAGGERED LOOPBACK , 
BNE 10% sSKIP SETTING STAGGERED LPBK IF NO!. 
ASR R2 sFORM BYTE OFFSET INTO TABLE FROM TX LINE a, 
005274 MOVE SITGTRB(R2),R2 sGET THE RX LINE CORRESPONDING WITH Tx LINE, 
005234 108; MOV Ro, TXRXLB( RS) sLOAD TK TABLE ENTRY wITH Rx LINE OFFSET, 


ak 
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6168 3° 
6169 s SET UP THE RX COUNTERS AND CHARACTER POINTER FOR THE RX LINE WHICH 
rit 3 IS ASSOCIATED WITH THIS TX LINE. 
g- 
6172 026110 005062 003542 CLR RXCNTB(R2) s;CLEAR THE RX COUNTER FOR THIS Rx LINE. 
6173 026114 005062 003242 CLR EXCNTB(R2) sCLEAR THE EXTRA CHAR COUNTER FOR THIS RX LINE. 
ret 026120 010562 003402 MOV RS .RXPTRBE(R2> sSET UP THE RX CHAR POINTER FOR THIS RX LINE. 
3¢ 
ores s UPDATE THE TX START POINTER IN PREPARATION FOR THE NEXT LINE. 
j s- 
6178 026124 066705 155010 12%: ADD CBOFSA,RS sADD THE TX OFFSET TO THE Tx START POINTER. 
6179 026130 020503 14%: CMP R5,R3 sCOMPARE TX START WITH END OF DATA PATTERN, 
6180 026132 103403 BLO 16$ sSKIP WRAPAROUND IF START IS BEFORE PAT END. 
6181 026134 166705 154770 SUB CBDPLA,RS sSUBTRACT DATA PATTERN LENGTH FROM START. 
rte 026140 000773 BR 14% sLOOP UNTIL START IS WITHIN DATA PATTERN, 
3* 
etes s UPDATE THE TX LINE NUMBER OFFSET TO THE NEXT LINE. 
5 
6186 026142 005204 16%: INC R4 
Sine 026144 005204 INC R4 
3* 
ores ; TEST FOR DONE HANDLING ALL POSSIBLE LINES ON THE DEVICE. 
$- 
6191 026146 020427 000040 CMP R4 , ONUMLNS*«2 sCOMPARE OFFSET WITH 2 TIMES MAX @ OF LINES, 
rte 026152 002706 BLT 4$ ;LOOP IF NOT ALL LINES DONE. 
6194 026154 60$: PASS sRESTORE GPRS. 
026154 004736 JSR PC ,a(SP)- sRETURN TO PREGOS SUBRT. 
6195 026156 000207 RTS PC 


ris 
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6197 -SBTTL GLOBAL SUBROUTINE - TXROFF - 
6198 se COPCDORSOPOSSESSESSESSESESOEEEEOOESAERDEDALEDEEEDEDDEEEEEDEREREEREEESRO‘E‘E 
6199 3¢ - TURN TX AND RX OFF ROUTINE - 
6200 3* THIS SUBROUTINE IS USED TO T OFF DUT TRANSMISSION AND RECEPTION. 
6201 3:6 THIS ROUTINE ACHIEVES THIS BY BOOSTING PROCESSOR PRIORITY TO 5S TO 
6202 ;* AVOID RX INTERRUPTS AND BY CLEARING ALL THE DUT Tx ENABLE BITS TO 
6203 34 HALT TX CEITHER DMA OR SINGLE CHARACTER TX). THE STATES OF THE 
6204 3; TX.ENABLE BITS AND THE PROCESSOR PRIORITY ARE SAVED FOR RESTORATION 
rere 3¢ TX AND RX ARE RE -ENABLED. 
60+ ;¢ 
rr od ;@ INPUTS: MAPLNS - BIT MAP OF ALL POSSIBLE LINES ON THE DUT. 
© 34 
6209 :*# OUTPUTS: SAVPRI - SAVED PROCESSOR PRIORITY. 
care 3;* SAVTEN - BIT MAP OF TX.ENBL BITS (BIT SETIF TX.ENBL WAS SET). 
3° 
rete 3# CALLING SEQUENCE: JSR PC, TXROFF 
3* 
6214 3* COMMENTS: 
6215 34 
6216 ;* SUBORDINATE ROUTINES CALLED: TXDSBL. 
6217 s-- CPPSSERAODDESEELEREEASEDEEEEOEEADEREAEREADEORAADDEAEDEADDDDRAREADREEEESERSS 
621 


TXROFF:: SAVE 


sSAVE CONTENTS OF GPRS RO THRU RS. 
RS .PREGOS 


160 004567 157140 . sCALL REGISTER SAVE SUBRT. 
6220 026164 GETPRI SAVPRI sGET THE PRESENT PROCESSOR PRIORITY. 
026164 104440 TRAP C$GPRI 
0261 0067 154056 MOV RO, SAVPRI 
6221 026172 SETPRI @PRIO6 sDISABLE DUT INTERRUPTS. 
026172 012700 000300 MOV OPRIO6 ,RO 
026176 104441 TRAP CSSPRI 
6222 026200 012705 177777 MOV OMAPLNS ,RS sPREPARE TO DISABLE TX ON ALL. DUT LINES. 
6223 0262 767 177124 JSR PC, TXDSBL sCLEAR ALL DUT TX.ENABLE BITS. 
6224 026210 010567 154036 MOV RS, SAVTEN sPRESERVE THE PREVIOUS TX.ENABLE BIT STATES. 
6225 026214 605; PASS sRESTORE GPRS. 
026214 004736 JSR PC.a(SP)-+ sRETURN TO PREGOS SUBRT, 
6226 026216 000207 RTS PC : 


Bek iBholtne*"* 


6248 026220 
026220 

44 026224 

6250 026250 

6251 026254 

026234 

026240 

6252 026242 

026242 

6253 026244 


004567 
016705 
004767 


016700 
104441 


004736 
000207 
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-SBTT!_ GLOBAL SUBROUTINE - TXRON - 

s*%+ @98266644 £46446 1464646466 GS £62644 6007 CC OSSEEAEEEEEEEEEEESEEEREEEDEEREEOEE 

; TURN TX AND RX ON ROUTINE - 

3 THIS SUBROUTINE IS USED TO TURN ON DUT TRANSMISSION AND RECEPTION. 

34 THIS ROUTINE RESTORES THE DUT TX. ENABLE ale AND THE PROCESSOR PRIORITY 

7) TO THE STATES SAYED BY THE TXROFF ROUT INE 

a 

- INPUTS: SAVPRI - SAVED PROCESSOR PRIORITY. 

34 SAVTEN - BIT MAP OF TX.ENBL BITS (BIT SETIF TX.ENBL WAS SET), 

3;* 

3* OUTPUTS: DUT TX.ENABLE BITS - SET TO SPECIFIED STATES. 

34 PROCESSOR PRIORITY - SET TO SPECIFIED PRIORITY. 

34 

3@ CALLING SEQUENCE: JSR PC, TXRON 

34 

3 COMMENTS: 

3* 

3* SUBORDINATE ROUTINES CALLED: TXENBL . 

t-- *APOPDOREGEODAESADOAELESEEEESAROEEEEEERESEEORDEREEDEADEDEREEER ODA AAROEEeees 

TXRON:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
157100 JSR RS , PREGOS sCALL REGISTER SAVE SUBRT. 
154022 MOV SAVTEN,RS ;GET THE SAVED STATES OF THE TX. ENABLE BITS. 
177174 JSR PC, TXENBL sSET THE SPECIFIED TX.ENABLE BITS. 

SETPRI SAVPRI sRESTORE THE PROCESSOR PRIORITY. 
154010 MOV SAVPRI ,RO 
TRAP CSSPRI 
60%: PASS sRESTORE GPRS. 
are C JSR PC,a(SP)- sRETURN TO PREGOS SUBRT. 
T P 


SEQ 142 


H13 
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6255 -SBTTL GLOBAL SUBROUTINE - TXRREP - 
6.56 se COROCORPODODESESESESEDDEDESESESOEODEOSESEADEERERAEDEDEEEEEEEEEEEERESOEESEES 
6257 3 - REPORT FINAL TX/RX ERRORS ROUTINE - 
6258 36 THIS SUBROUTINE REPORTS ERRORS WHICH ARE FOUND AFTER THE COMPLETION 
6259 3¢ OF THE TX, RX, AND VERIFICATION OF DATA PATTERNS. IT REPORTS ERRORS 
Saet 3¢ DEALING WITH INCOMPLETE Tx OR RX AND WITH DOMA_START BITS. 
;* 
6262 s@ INPUTS: ACTLNS - BIT MAP OF ACTIVE DUT LINES. 
6265 34 DOPLENB - LABEL AT BASE OF THE DATA PATTERN LENGTHS TABLE. 
6264 34 ERRMSG - ADDRESS OF PRIMARY ERROR MESSAGE FOR THIS ROUTINE. 
6265 3¢ ERRNBR - E NUMBER OF ERROR REPORTED IN THIS ROUTINE. 
6266 34 RXCNTB - LABEL AT BASE OF THE Rx CHARACTER COUNTERS TABLE. 
6267 34 RXDONF - RECEPTION DONE FLAGS. 
6268 34 TXCNTB - LABEL AT BASE OF THE Tx CHARACTER COUNTERS TABLE. 
6269 3* TXDONF - TRANSMISSION DONE FLAGS. 
ph 34 TXINTF - CONTAINS BIT MAP OF LINES WITH DMA_START BIT ERRORS. 
34 
6272 3* OUTPUTS: CARRY FLAG - RESTORED TO ITS ENTERING VALUE. 
6275 34 ERRBLK - ADDRESS OF THE ERROR REPORTING ROUTINE (DESTROYED). 
pti 34 MESSAGES MAY BE PRINTED AT THE OPERATOR CONSOLE. 
34 
y+ Hh 3* CALLING SEQUENCE: JSR PC, TXRREP 
34 
6278 3* COMMENTS: THIS ROUTINE REPORTS ERRORS AT INITIAL ERRNBR THRU 
6279 ;* INITIAL ERRMBR:2. 
6280 34 IF NO LINES FAILED TO COMPLETE THEIR RECEPTION OR FAILED TO 
6281 ;* COMPLETE THEIR TRANSMISSION OR HAD DMA _START BIT ERRORS 
esas 34 THEN NO MESSAGES ARE PRINTED. 
3* 
6284 3* SUBORDINATE ROUTINES CALLED: CONMAP ,ER9005 ,ER9102,RDMAST ,RRXNDN,RTXNON. 
pets g-- SORAOEEAEPEEEEERERSESEEDEEDSARO ED EEREAEAREDRDAREADEEDEDEDAEDDDEEDD ED SOREOS 
6287 026246 TXRREP:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
026246 004567 157052 JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
6288 026252 006003 ROR RS sROTATE CARRY INTO GPR TO SAVE CARRY STATE, 
6289 026254 016704 157036 MOv ERRNBR ,R4 sSAVE THE INITIAL ERROR NUMBER VALUE. 
6290 026260 016705 153706 MOV ACTLNS,RS sGET THE ACTIVE LINES BIT MAP. 
esos 026264 004767 175340 JSR PC ,RDMAST sREPORT ANY DMA_START BIT ERRORS. 
6293 026270 032767 000100 153664 BIT @BITO6,OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
6294 026276 001003 BNE 23 ;YES, THEN BRANCH, 
6295 026300 005767 153720 TST FERROR sHAS AN ERROR BEEN DETECTED ? 
eset 026304 001024 BNE 60$ sBRANCH AND EXIT IF IT WAS. 
6298 026306 005267 157004 23; INC ERRNBR sSELECT INTIAL ERROR NUMBER + 1. 
Sise 026312 004767 175720 JSR PC ,.RTXNON sREPORT TX NOT COMPLETE IF NECESSARY. 
6501 026316 032767 000100 153636 SIT OBITO6.OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
6302 026324 001003 BNE 4% sYES, THEN BRANCH, 
6303 026326 005767 153672 Tst FERROR sHAS AN ERROR BEEN DETECTED ? 
ore 026332 001011 BNE 60% sBRANCH AND EXIT IF IT HAS, 
6506 026334 005267 156756 4$; INC ERRNBR sSELECT INITIAL ERROR NUMBER « 2. 
6307 026340 004767 171036 JSR PC. CONMAP sGENERATE AN ASSOCIATED LINE BIT MAP, 


175620 PC ,RRXNDN sREPORT RX NOT COMPLETE IF NECESSARY. 
tH 026350 010467 156742 MOV R4 ,ERRNBR sRESTORE THE INITIAL ERROR NUMBER VALUE. 


113 


DHU-11 FUNC TST PART4 MACRO Mi200 15-MAR-84 09:48 PAGE 112-1 SEQ 1464 
BROUT INE - TXRREP - 


GLOBAL St 
©3511 026354 006103 ROL RS sROTATE SAVED CARRY STATE BACK INTO CARRY. 
6312 026356 60%: PASS sRESTORE GPRS, THIS ROUTINE PRESERVES THE 
JSP PC .a(SP)-> sRETURN TO PREGOS SUBRT. 


094736 


026336 
6313 026360 000207 RTS PC ; INITIAL CARRY STATE. 


6 026434 
6570 026436 


004567 


012603 
012602 


J15 
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156736 


177777 


000020 


-SBTTL GLOBAL SUBROUTINE - UNSDIV - 


s*e OPPPLSSOODEDESE SESEEOSESOSESEOSEEESSEOEEDEDEEADEDEEDDEEEEEDRDDEEEDERESELLLS 


34 - UNSIGNED DIVIDE ROUTINE - 

36 THIS SUBROUTINE IS USED TO DIVIDE A S2 BIT UNSIGNED DIVIDEND BY A 

3° 16 SIT UNSIGNED DIVISOR GIVING A 16 BIT GUOTIENT. ALL NUMBERS ARE 

36 IDERED TO BE UNSIGNED. A SUCCESS FLAG IS NOT SET ON RETURN IF 

3¢ THE QUOTIENT WAS T90 BIG TO BE CONTAINED IN 16 BITS. 

3° 

s@ INPUTS: Ri - THE DIVISOR, UNSIGNED, 16 BITS. 

36 R2 - MOST SIGNIFICANT WORD OF THE DIVIDEND, UNSIGNED, 16 BITS. 

ct R3 - LEAST SIGNIFICANT WORD OF THE DIVIDEND, UNSIGNED, 16 BITS. 
s¢ 

3@ OUTPUTS: Ril - QUOTIENT, UNSIGNED, 16 BITS (177777 IF OVERFLOW). 

34 CARRY - SUCCESS FLAG, SET IF COMPLETE QUOTIENT FITS IN 16 BITS. 
3:4 

3@ CALLING SEQUENCE: JSR PC ,,UNSDIV 

s¢ 

3* COMMENTS: IF THE DIVISOR IS 0 THE QUOTIENT IS RETURNED AS ALL ONES 

34 (177777) AND THE CARRY IS CLEAR REGARDLESS OF THE DIVIDEND. 

34 


3* SUBORDINATE ROUTINES CALLED: NONE. 


s-- SAAPSODOOSSSESEDESEEDEOAEEDEEEREDAEDSRESOREDAREDEADEADADEDORALERLEEALLLS aee 


UNSDIV:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT, 


3* 
s CHECK FOR QUOTIENT GREATER THAN 16 BITS CONDITION. 
§- 


MOV R2,R4 sGET MSW OF DIVIDEND FOR SUBTRACT. 

SUB R1,R4 sSUBTRACT DIVISOR FROM MSW OF DIVIDEND. 

BCS es sIF IT DION’ T GO, WE HAVE QUOTIENT < 16 BITS. 
MOV @-1,R1 sSET QUOTIENT TO ALL ONES (177777), 

BR 60% sEXIT WITH CARRY CLEAR, 


sCLEAR THE LSW OF THE DIVISOR, 

sCLEAR CARRY FOR THE SHIFT OF THE DIVISOR. 
ROR R1 ; DIVISOR By 

ROR R4 ; 2CUNSIGNED ) 

MOV #16. ,R0 sSET UP INITIAL SHIFT COUNT TO 16, 


a 
; THE SUBTRACT AND SHIFT LOOP, 
ad 
4%; MOV Re, -( SP) sSAVE MSWORD OF DIVIDEND. 


MOV RS, -( SP) sSAVE LSWORD OF DIVIDEND. 
SUB R4 RS sLSWORD DIVIDEND - LSWORD OF DIVISOR, 


ey ; CLR R4 
CLC 


SBC R2 sMSWORD DIVIDEND - BORROW . 

6cs 6% sIF BORROW FROM BORROW SUBTRACT, IT DIDN'T GO. 
SUB R1,R2 sMSWORD DIVIDEND - MSWORD OF DIVISOR, 

ecc 8% ;IF NO BORROW, IT WENT, CARRY IS CLEAR, 


3? 
+; IT DION’ T GO, SO WE SHIFT A 1 INTO THE QUOTIENT (COMPLEMENTED LATER), 
; CARRY IS SET. 


| ee 
(SP)+,R3 


6$; MOV sRESTORE LSWORD OF DIVIDEND. 
MCV (SP)+,R2 


sRESTORE MSWORD OF DIVIDEND. 


SEQ 165 


Brisk! SiR fne™"* 


6371 026440 000401 
6372 


306 
026512 

640 
6409 026514 


K15 
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BR 10$ ;GOTO SHIFT 1 INTO THE QUOTIENT. 


3? 
s IT WENT, SO WE RESTORE THE STACK AND SHIFT A 0 INTO QUOTIENT (WILL BE 
s COMPLEMENTED LATER). CARRY IS CLEAR. 


8%: MOV (SP3+.CSP)-> sPOP THE SAVED DIVIDEND OFF OF THE STACK. 
3° 
s SHIFT THE RESULT OF THE SUBTRACT ATTEMPT INTO THE QUOTIENT SHIFT REG. 
ad 
10%: ROL RS sSHIFT NEXT BIT INTO THE INVERTED QUOTIENT. 
CLC sDIVIDE THE 
ROR Ri ; OEVISOR By 
ROR R4 ;_ 2 CUNSIGNED). 
DEC RO sCOUNT THIS SHIFT AND SUBTRACT. 
BNE 35 sLOOP FOR ANOTHER SHIFT € SUB IF NOT DONE. 
COM RS sGET QUOTIENT FROM INVERTED QUOTIENT. 
3 
s NOW WE EITHER ROUND UP OR LEAVE QUOTIENT ALONE. 
+ id 
CLC sCLEAR THE CARRY FOR THE SHIFT UF THE OIVIDEND. 
ROL R3 sMULTIPLY LSWORD OF DIVIDEND BY 2, MSWORD IS 0, 
6CS 12s sIF CARRY FROM SHIFT, R UP . 
SUB R4,R3 SUBTRACT DIVISOR FROM DIVIDEND. 
8CS 14% ;IF BORROW, DON'T ROUND UP. 
3? 
3s ROUND UP, EXTRA SUBTRACT WENT. 
3 
les: INC RS s INCREMENT THE QUOTIENT BY ONE, 
BNE 14% sIF NO OVERFLOW, WE LEAVE THE ROUND UP 
DEC RS sDON'T LET ROUNDING CAUSE OVERFLOW. 
3° 
s ALL DONE, PASS QUOTIENT AND EXIT. 
| ead 
14%; MOV RS ,R1 sPASS QUOTIENT BACK IN Ri. 
SEC s INDICATE NO OVERFLOW. 
60%: PASS Ri sRESTORE GPRS, LEAVE THE FOLLOWING INTACT: 
000004 MOV R1,R1SLOTCSP) sPUT R1 IN STACK SLOT. 
JSR PC, @CSP)+ sRETURN TO PREGOS SUBRT, 
sR1 - 16 BIT, UNSIGNED QUOTIENT, 
RTS PC sCARRY - SET INDICATES NO OVERFLOW (SUCCESS). 


ocoeAl StBRout ine "4 


6441 
6442 
6443 
6444 
6445 


6450 
6451 
64 


026516 
026516 
026522 


026540 
026542 
026546 


010163 


016301 
005201 
001002 


012701 
010163 


& FE. 
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156602 
005234 


003402 
003142 


003202 
003402 


003542 


177777 
003542 


003442 


UPDCHR:: SAVE 


-SBTTL GLOBAL SUBROUTINE 


see OPPPREESEOSESSSESESEDESESESEDSEEDARESEEEEDEREAERESEEDEREEDEREEREEEEERORERS e 


3* - UPDATE CHARACTER POINTERS AND COUNTERS ROUTINE - 


34 THIS SUBROUTINE UPDATES THE PCINTERS AND COUNTERS ASSOCIATED WITH 

lf THE RECEPTION OF A CHARACTER A SPECIFIED LINE. THE CEIVE CHAR 

34 POINTER IS SET TO THE NEXT EXPECTED CHARACTER, THE RECEIVE CHAR COUNT 
34 I TED, OUNT IS CHECKED TO DETERMINE IF THE RECEPTION 
34 IS COMPLETE. IF THE RECEPTION IS COMPLETE THE RECEPTION DONE FLAG 

34 IS SET FOR THE SPECIFIED LINE. 

;* 

3* INPUTS: R3 - LINE NUMBER TIMES 2 OF LINE ON WHICH CHAR WAS RECEIVED. 
34 SITTBL - LABEL OF TABLE OF WORDS USED TO FORM SINGLE BIT MAPS. 
4 CHCNTS - BASE OF NUMBER OF CHARS TO Tx ON EACH LINE TABLE. 

3% DPENDB - BASE OF DATA PATTERN END ADDRESSES TABLE. 

34 DPL - BASE OF DATA PATTERN LENGTHS TABLE. 

34 RXCNTB - BASE OF THE RX CHARACTER COUNTERS TABLE. 

34 RXPTRB - BASE OF THE RX CHARACTER POINTERS TABLE. 

36 TXRXLB - BASE OF TX/RX LINE NUMBER ASSOCIATION TABLE. 

;* 

;# OUTPUTS: FOLLOWING VARIABLES UPDATED FOR LINE ON WHICH CHAR WAS RECEIVED: 
34 RXCNT - COUNT OF THE NUMBER OF CHARACTERS RECEIVED ON LINE. 

34 RXDONF - RX DONE FLAGS WITH BITO FOR LINE O ... CUPDATED). 

34 RXPTR - UPDATED TO POINT TO THE NEXT EXPECTED CHAR ON LINE. 

3* 

;# CALLING SEQUENCE: JSR PC, UPDCHR 

;* 

;* COMMENTS: 


34 
3* SUBORDINATE ROUTINES CALLED: NONE. 


$-- wn RESSSAOEEESEEDAAEEESEEEALAROSDEDEAAEDDEDDADARLDDDDEARERDDEDARRAAALAREDD 
sSAVE CONTENTS OF GPRS RO THRU RS. 

JSR RS ,.PREGOS ;CALL REGISTER SAVE SUBRT. 

MOV TXRXLBCR3),R2 ;GET TX LINE NUMBER OFFSET FOR THIS RX LINE, 


+ 
; UPDATE THE RX DATA POINTER WITH WRAPAROUND AT THE END OF THE DATA PATTERN, 
MOV ear SROCRS) Ri 


R1,OPENDB(R2)  ;CMP RX PTR VALUE WITH ADR OF END OF DATA PAT, 
BLO es sSKIP WRAPPING RX PTR AROUND IF NOT AT ; 
SUB DPLENB(R2),R1 sWRAP RX PTR AROUND TO START OF DATA PATTERN. 
2s; MOV R1.RXPTRBCR3S)  ;UPDATE THE RX POINTER WITH THE NEW VALUE, 


> 
; UPDATE THE RX CHARACTER COUNT WITH OVERFLOW DETECTION. 


MOV RXCNTBC(R3),R1 sGET THE RX CHARACTER COUNT. 
R1 . sINCREMENT THE RX CHAR COUNT VALUE BY 1. 
4$ sSKIP SETTING COUNT TO MAX IF NO OVERFLOW. 
MOV @-1,R1 sSET RX CHAR COUNT VALUE TO MAX VALUE. 
4%: MOV R1,RXCNTBCRS) sUPDATE THE RX CHAR COUNT WITH NEW VALUE. 


; CHECK FOR RX COMPLETION ON THIS LINE. 
; IF RX IS COMPLETE ON THIS LINE, SET THE CORRECT Rx DONE FLAG, 


8 MOV  CHCNTB(R2),R4 © ;GET THE NUMBER OF TX CHARS IN COMPLETE Ix. 
CMP RR COMPARE RX 
BLO -—-—s«dn& OS sEXIT ROUTINE IF NOT ALL CHARS RECEIVED. 


CHAR COUNT WITH NUMBER OF TX CHARS. 


SEQ 1467 


M13 
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6467 026602 056367 002364 153674 BIS BITTBL(R3).RXDONF :SET THE RX DONE FLAG FOR THIS LINE. 

6469 026610 60$: PASS ;RESTORE GPRS. 


026610 004736 JSR PC.@(SP )+ sRETURN TO PREGOS SUBRT. 
6470 026612 000207 RTS PC 


Baht iehol Lae 


6526 702 
6527 026706 


012701 
005201 


110221 


N13 
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-SBTTL GLOBAL SUBROUTINE 


- VANSUP - 


s+ CAPEERELESSEESESSEESEAESESEDSOSESEOEEEEADDEDEDEEERAERDREEDEEADRRDEDEREREEES 


34 - TRANSMISSION / RECEPTION SET-UP ROUTINE - 

3* 

:A THIS ROUTINE IS USED TO INITIALISE BOTH THE DUT AND THE 
34 TRANSMISSION/RECEPTION CONTROL PARAMETERS TO THE CORRECT 
34 STATE, PRIOR TO A SINGLE CHARACTER OR DMA TRANMISSION, 
+* RECEPTION TEST. 

y* 

3# INPUTS: R1 


- TX, RX LPR CONTENTS. 
ADDRE 


34 R2 - START SS OF DATA PATTERN TO TRANSMIT. 

34 RS - LENGTH OF DATA PATTERN. 

3% R4 - NUMBER OF PATTERNS TO TRANSMIT. 

34 ACTLNS - CONTAINS A BIT MAP OF ALL CURRENTLY ACTIVE LINES. 
3% LOPBCK - CONTAINS THE TYPE OF LOOPBACK MODE SELECTED. 

34 CBB - LABEL AT BASE OF TX/RX CONTROL BLOCK. 

3% 

3# OUTPUTS: THE CONTENTS OF THE TX/RX CONTROL BLOCK (CCB) ARE DESTROYED. 
34 THE INDIRECT ADDRESS FIELD OF THE DUT CSR MAY BE DESTROYED. 
5” THE DUT’S LPR‘'S AND LNC’'S MAY BE MODIFIED. 

34 THE FOLLOWING POINTERS AND COUNTERS ARE INITIALISED; 

3* CHCNT , CHRTOT , DPEND ,DPLEN, EXCNT,RXCNT,RXPTR,TXCNT, 

3 TXPTR, TXRXL. 

3% CHRTOT, RXDONF, TXDONF AND TXINTF ARE CLEARED. 

3% 

3* CALLING SEQUENCE: JSR PC, VANSUP 

;* 

3* COMMENTS: MODEM LOOPBACK MODE IS INHIBITED IF IT HAS BEEN SELECTED 
3% VIA HARDWARE P-TABLE QUESTIONS, AND INTERNAL LOOPBACK MODE 
34 ITS FORCED TO TAKE PLACE. 


3% 
3# SUBORDINATE ROUTINES CALLED: 


CONMAP ,RXENBL , TXRINI. 


s-- SPLSEORESEEAEEREREDEEEEEEEAEEAEEDSEREADEEAEAADSEARADDDEARDDDRADARREREAEDORD 


VANSUP:: SAVE 


sSAVE CONTENTS OF THE GPR’S RO THRU RS. 

RS ,PREGOS sCALL REGISTER SAVE SUBRT. 
sCLEAR TOTAL RECEIVED CHAR COUNTER. 

sCLEAR FLAGS USED TO LOG DMA H.OVER ERRORS. 
sCLEAR THE TX DONE FLAGS. 

sCLEAR THE RX DONE FLAGS. 


3 
; SET UP THE TRANSMISSION/RECEPTION CONTROL BLOCK TO THE DESIRED STATE, 


156504 
153652 CLR CHRTOT 
153434 CLR TXINTF 
153646 CLR TXDONF 
153644 CLR RXDONF 
) Bag 
154256 MOV R1,CBB 
003122 MOV oCBB ,R1 
INC 1 
INC R1 
000004 MOV 04,(R1)> 
MOV R2,CR1L)+ 
MOV R3,CR1)+ 
MOV R4,(R1)>+ 
153300 MOV ACTLNS,CR1)> 
000004 153274 BIT 6B IT2,LOPBCK 
BEQ 2s 
000001 MOV #1,R2 
MOVB R2,(R1)+ 


sSET CONTENTS OF LPR PARAMS 
sGET BASE OL 
; INCREMENT WOR 

sINITIALISE THE FOLLOWING IN THE CNTRL.BLK: 

; LNCTRL PARAMETER, ENABLE RECEIVERS. 

; START ADDRESS OF DATA PATTERN, 

s DATA PATTERN LENGTH. 

s NUMBER OF DATA PATTERNS TO TRANSMIT, 

; BIT MAP OF LINES TO INITIALISE, 

sTEST IF MODEM LOOPBACK MODE HAS BEEN SELECTED. 
sDONT SELECT INTERNL LOPBCK IF STAGRD OR LOCAL. 
sFORCE INTERNAL LOOPBACK MODE TO BE SELECTED. 
sINITIALISE LOOPBACK MODE IN CONTROL BLOCK. 


IN TX/RX C,BLK, 
BLOCK * 


Stak! Bolte" 


6553 026766 


027006 
6561 027010 


000402 
116721 


005201 
012711 


004767 


012701 


012705 
004767 


016705 
004767 
004767 


004736 
000207 


614 
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BR 4% 3SKIP NEXT INSTRUCTION IF IN MODEM LOOPBACK , 
153256 2$: MOVE LOPBCK,(R1)- sSET LOOPBACK . 

4%: INC Ri s INCREMENT ADDRESS FOR THE NEXT WORD . 
000002 MOV #2,(R1) sSET AMOUNT OF OFFSET EACH TX STARTS aT TO 2. 


s¢ 
s INITIALISE THE DUT AND THE ASSOCIATED POINTERS AND COUNTERS, TO THE STaTe 
s DICTATED By THE CONTENTS OF THE TX/RX CONTROL BLOCK. 

3- 


176754 JSR PC, TXRINI sINITIALISE DuT. 
| ad 
s INITIALISE POINTERS AND COUNTERS FOR INACTIVE LINES TO ZERO. 
g- 
177777 MOV ®MAPLNS,.R1 sGET THE LINE BIT MAP FOR ALL LINES. 
153232 MOV ACTLNS,R2 sGET THE ACTIVE LINE BIT MPP. 
COM Ri 3 
COM 3 
BIC R1,R2 sGENERATE AN IN-ACTIVE LINE BIT MAP. 
154162 MOV R2,CBMAPA sMOVE BIT MAP TO THE CONTROL BLOCK, 
154154 CLR CBDPNA sCLEAR THE REPEAT Tx COUNT IN CNTRL BLCK, 
176722 JSR PC, TXRINI ;SET UP PARAMETERS FOR INACTIVE LINES, 


DISABLE RECEIVERS ON ALL LINES TO ENSURE CORRECT INITIALISATION OF ONLY THE 
LINES THAT ARE SELECTED. 


177777 MOV @MAPLNS ,RS sSET-UP BIT MAP FOR ALL LINES. 
175312 JSR PC .RXDSBL sDISABLE RX ON ALL LINES, 

3? 

s ENABLE RECEIVERS ON ASSOCIATED (RX) LINES. 

ie 
153174 MOV ACTLNS,RS sGET THE ACTIVE LINE BIT MAP, 
170400 JSR PC.C sGENERATE AN ASSOCIATED LINE BIT MAP. 
175372 JSR PC ,RXENBL sENABLE RECEIVERS ON ASSOCIATED LINES. 

603; PASS sRESTORE GPR'S. 
ats pe JSR PC,a(SP)- sRETURN TO PREGOS SUBRT, 


©5653 
6 


6606 
6607 


027012 


027064 


ClHeA SHiRod? ine" 
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-SBTTL GLOBAL SUBROUTINE - WAIBIS - 


s¢* COPOOOOOODODESOOEESEDEOOOOEEESOEOEERODEEEDEDOREEDEDEEOEEEEEEEEEEEEOOCCECEES 


36 - WAIT FOR BIT SET ROUTINE - 

;¢ THIS SUBROUTINE WAITS FOR THE SPECIFIED BIT TO BECOME SET. IF THE 

36 SPECIFIED BIT GOES TO A SET STATE WITHIN THE SPECIFIED TIME -OuT 

36 PERIOD A SUCCESS INDICATION IS RETURNED By THIS ROUTINE. 

36 THE LAST VALUE WHICH IS READ LOOKING FOR THE CONDITION IS RETURNED TO 
oa ALLOW THE USE OF THIS ROUTINE TO LOOK FOR DESTRUCTIVE READ CONDITIONS. 
3° 

3¢ INPUTS: Ri - fIME-OUT VALUE AND BIT NUMBER INDICATION; 

36 BITS 15 THRU 12 - NUMBER OF BIT TO TEST CRANGE O THRU 15). 
3¢ BITS 11 THRU O - TIME-OUT VALUE IN MILLI-SECONDS (4095 Max). 
3 R2 - ADDRESS OF WORD CONTAINING THE BIT TO TEST, 

34 MSLCNT. 

34 

3@ OUTPUTS: R2 - THE LAST WORD WHICH WAS READ TO CHECK FOR THE CONDITION. 


3° CARRY - SUCCESS FLAG (CARRY SET IF BIT SET 8 


EFORE TIME -OUT). 


3# CALLING SEQUENCE: MOV #130040,R1 sPASS BIT 11 (13 OCTAL) AND 

e : 32 (40 OCTAL) MS DELAY. 

36 MOV OLABEL ,R2 sTEST BIT IN WORD AT "LABEL". 
:6 JSR PC ,WAIBIS sWAIT 32 MS FOR BIT 11 TO SET. 


ea 

3* COMMENTS: 

3¢ 

3* SUBORDINATE ROUTINES CALLED: MSLGET. 


g-- COORSOSOREEEDAOREDDOEDESEDEEOEOESEEEEDERELEREDRDEDRODEREEERDEREDDEOAEEOOOES 


WAIBGIS:: SAVE 


156306 ° 
sad os sSET UP THE ADDRESS PARAMETER FOR MSLGET., 
17 BIC #170000,R1 sSEPERATE DELAY COUNT OUT 
007777 BIC @7777,Re2 sSEPERATE LINE NUMBER FIEL 
SWAB F4 sPUT LINE NUMBER FIELD IN LSBYTE., 
ASR Re SHIFT THE LINE NUMBER FIELD INTO THE PROPER 
ASR R2 s POSITION TO USE IT AS A WORD 
ASR R2 s FOR THE TABLE LOOKUP 
002 364 MOV BITTBL(R2),R2 sGET BIT MAP OF LINE TO TEST FROM TABLE, 
MOV R35 s INDICATE THAT THE BIT SHOULD BE SET, 
172020 JSR PC ,MSLGET sWAIT FOR THE BIT TO BE SET WITHIN TIME -OvT, 
;_ CARRY IS CORRECT UPON MSLGET RETURN, 
MOV RO ,R2 sPASS LAST VALUE READ AS OUTPUT PARAMETER, 
605; PASS Pd sRESTORE GPRS, EXCEPT THE FOLLOWING: 
000006 MOV R2.,R2SLOT( SP) 
JSR PC, de 
3 s R2 - LAST VALUE READ 
RTS PC s CARRY - SUCCESS FLAG (SET IF BIT FOUND SET), 


sSAVE CONTENTS OF GPRS RO THRU RS. 
RS GO sCALL REGISTER SAVE SUBRT. 


OF PASSED PARAMETER, 
DO OF PASSED PARAM, 


TABLE OFFSET 


OF THE LINE BIT MAP, 


sPUT R2 IN STACK SLOT, 
RETURN TO PREGOS SUBRT, 
OOKING FOR CONDITION, 


0 
6641 
6642 
6643 027106 
6644 
6645 027112 
027112 
6646 027114 


Cleat SHiRodt ine“? 


004567 


Steaet 


004736 
000207 
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156232 


153112 


177777 


166706 


-SBTTL GLOBAL SUBROUTINE - WIWLNC - 
3° OOO OOOOODOOODDOODDEEESOSOESEDOREEEDEDESEADEEEAEDEEDERDEEEDEEEEEEDEOEE‘OOES 
36 - LINE CONTROL REGISTER SETUP ROUTINE 

ath THIS SUBROUTINE IS USED TO SET THE DEVICE UNDER TEST (DUT) LINE 

34 CONTROL REGISTERS (LNCTRL) TO THE SPECIFIED STATE. ONLY THE LNCTRLS 
36 FOR THE SPECIFIED LINES ARE ALTERED. 

+ 

3¢ INPUTS: RO - NEW LINE PARAMETERS. 

36 RS _- BIT MAP OF LINES TO BE ALTERED. 

36 CSRA - CONTAINS ADDRESS OF THE DUT CSR. 

;6 TESTAT - CONTAINS THE CURRENT STATE OF THE Tx AND Rx INTERRUPT 
36 ENABLE BITS IN THE CSR. 

. LNCTRA - CONTAINS ADDRESS OF THE DUT LNCTRL REGISTERS. 


LNCTRL - SPECIFIED DUT LINE CONTROL REGISTERS ARE ALTERED. 
PC .WTWLNC 


3% 

3 OUTPUTS: 
34 

:* CALLING SEQUENCE: JSR 
-2 


;* COMMENTS: 
3° 
s@ SUBORDINATE ROUTINES CALLED: ALTFLD. 


3-- SAPRSERODEDEEOASEAEEEOEEERELEDEEEEDDEDADEDEEDEREREDAEREDDEDEDEDEAALER DOOD a 


WIWLNC:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


3? 
; SET UP THE PARAMETERS FOR THE CALL TO ALTFLD. 


3 
MOV LNCTRA,R1 sSET UP THE REGISTER ADDRESS PARAMETER. 
MOV RO,R2 sSET UP THE DESIRED REGISTER CONTENTS. 
MOV RS,R3 sSET UP THE BIT MAP OF LINES TO ALTER. 
MOV @-1,R4 sSELECT ALL REGISTER BITS TO BE ALTERED. 


3° 
s CALL THE SUBROUTINE WHICH ALTERS THE REGISTER CONTENTS. 
+ i 


JSR PC,ALTFLD sALTER THE REGISTER CONTENTS. 
60$: PASS sRESTORE GPRS. 
are oe JSR PC, aC SP)- sRETURN TO PREGOS SUBRT. 


SEQ 177 


0 
6671 027116 
2 027116 


6675 027122 

r9 gh 927132 
1 

rot | 027136 


6684 027142 
027142 
6685 027144 


DHU-11 FUNC TST PARTS 


GLOBAL Si ®BROUT INE 


004567 


016701 
0 


E14 
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- WIWLPR - 


156202 


153056 


177777 


166656 


-SSTTL. GLOBAL SUBROUTINE - WTWLPR - 

3;¢* OOPOCODDDOODOODEDDESEDSSSOSESSEDDDODSELELEDEEEDEDEDEEEEEEEDDEDEELLESEEELECS 
34 - LINE PARAMETER REGISTER SETUP ROUTINE - 

34 THIS SUBROUTINE IS USED TO SET THE DEVICE UNDER TEST (DU) LINE 

36 PARAMETER REGISTERS (LPR) TO THE SPECIFIED STATE. ONLY THE LPRS FOR 
34 THE SPECIFIED LINES ARE ALTERED. 

34 

3* INPUTS: RO - NEW LINE PARAMETERS. 

34 RS - BIT MAP OF LINES TO BE ALTERED. 

3* CSRA - CONTAINS ADDRESS OF THE DuT CSR, 

;¢ TESTAT - CONTAINS THE CURRENT STATE OF THE TX AND RX INTERRUPT 
34 ENABLE BITS IN THE CSR, 

34 LPRA - CONTAINS ADDRESS OF THE DUT LPR. 

34 

3# OUTPUTS: LPR - SPECIFIED DUT LINE PARAMTER REGISTERS ARE ALTERED. 


* 

:* CALLING SEQUENCE: JSR PC ,WTWLPR 
+ 

3* COMMENTS: 

34 

3* SUBORDINATE ROUTINES CALLED: ALTFLD. 


g-- SAORPORESDESEREOESOEEOEEEDERESEEEAEDADEEASAADEADEDEDEDDRDREDREEERCEOS eaeeee 


WIWLPR:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
RS ,PREGOS sCALL REGISTER SAVE SUBRT. 


JSR 
3° 
; SET UP THE PARAMETERS FOR THE CALL TO ALTFLD. 
3 

sSET UP THE REGISTER ADDRESS PARAMETER. 

sSET UP THE DESIRED REGISTER CONTENTS. 
SET UP THE BIT MAP OF LINES TO ALTER’ 
sSELECT ALL REGISTER BITS TO BE ALTERED. 
3* 
s CALL THE SUBROUTINE WHICH ALTERS THE REGISTER CONTENTS. 
te JSR PC, ALTFLD ;ALTER THE REGISTER CONTENTS. 


60$; PASS sRESTORE GPRS, 
RTS PC 


sRETURN TO PREGOS SUBRT, 


StGQ 


, F TS 
PNYEAR UPI Sede 
6087 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 027146 
6711 027152 
6712 027154 
6713 027160 
6714 027164 
6715 027166 
6716 027172 
6717 027176 
6718 027200 
6719 027206 
6720 027210 
27210 
6721 027212 
6722 027214 


u 
Ic 


PART4 
E 


MACRO M 
ROUT INE 


153126 


153120 
153116 


153110 
153106 


153102 153076 


r14 
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~ CLKINT - 


-SBTTL INTERRUPT SERVICE ROUTINE - CLKINT - 


s¢e Oe re An eSSSPSEEEEOOSSSSODESSEEESESEDEDOEEREEDEDEEREEDEEEEEEDESEAEC‘LS 


;* THIS ROUTINE IS EXECUTED CLKHRZ TIMES PER SECOND. IT DECREMENTS THE 
3¢ TWO TIMER COUNTERS DOWN TO ZERO. 

34 

3* INPUTS: TIMER1 - TIMER COUNTER @1. 

34 TIMER2 - TIMER COUNTER @2. 

34 TIMERS - TIMER COUNTER FOR CALL OF BREAK MACRO. 


THE 2 TIMER COUNTERS ARE DECREMENTED IF THEY ARE NOT ZERO. 
PUT @CLKINT IN THE CLOCK INTERRUPT VECTOR SLOT. 


7 
3;* OUTPUTS: 
s# CALLING SEQUENCE: 


34 PUT THE DESIRED TIME PERIOD (SECONDS TIMES CLKHRZ) IN 
la EITHER TIMER1 OR TIMER2 AND POLL THE RESPECTIVE TIMER 
3% COUNTER TO DETECT ITS GOING TO 0 ON TIME -OUT, 
3;* 
3@ COMMENTS: THE 2 COUNTERS WILL NOT WRAPAROUND BUT WILL STOP AT 0. THIS 
34 ALLOWS THE DETECTION OF A TIME-OUT ANY TIME AFTER THE TIME -OUT 
34 HAS OCCURRED UNTIL THE TIMER COUNTER IS SET TO ANOTHER VALUE. 
5* 
3# SUBORDINATE ROUTINES CALLED: NONE. 
$-- SALESESERODEEDEESESORESEDODOAEDEADEDEREEEDDDDEDERAAEADEERERADDDDADERREELOS 
CLKINT:: TST TIMER1 ;CHECK FOR TIMER1 AT ZERO. 
BEQ 2$ sBRANCH TO LEAVE IT AT ZERO IF IT [IS ZERO. 
DEC TIMER1 ;DECREMENT TIME COUNT. 
2s; TST TIMER? sCHECK FOR TIMER2 AT ZERO. 
SEQ 4$ sBRANCH TO LEAVE IT ALONE IF IT'S ALREADY ZERO. 
DEC TIMER?) sDECREMENT TIME COUNT. 
4$; DEC TIMERS sDECREMENT THE BREAK COUNT. 
BNE 0 sEXIT IF NOT TIME TO CALL BREAK. 


sSET UP TIME TILL NEXT BREAK 


60% 
MOV BCOUNT , TIMERS ° 
sSAVE CONTENTS OF RO FROM BREAK MACRO. 


MOV RO, -( SP) 


BREAK sCHECK FOR OPERATOR CONTROL/C. 
TRAP CsBRK 
MOV (SP)+,RO sRESTORE CONTENTS OF RO. 
60$: RTI 


SEQ 174 


Li FUNC TST PARTS 


6778 
6779 
6780 


027216 
027220 
027224 


027226 
0 


027276 
7304 


027314 
027316 
027322 
027326 


010246 
017702 
100054 


152756 


153464 


172562 
153446 
00000 


2 
153434 
002720 


153420 
153414 


153174 


177777 


000100 


153440 
003120 


153422 


000030 


-SBTTL INTERRUPT SERVICE ROUTINE 


ses *OO*CDRDODSDEESESSOSEEESESEEDOOEEEEDEESEEEDDEREEEEDEEDEDEDELEEEAEEESEEOE‘‘S 


34 
3* CALLING SEQUENCE: 
3 


THIS ROUTINE EXECUTES IN 
RX.DATA.AVAIL BIT BECOMING ACTIVE. 
THE DUT RE 


Gi4 
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INTERRUPT SERVICE ROUTINE - RXCHRS - 


- RXCHRS - 


DMA RECEIVE INTERRUPT SERVICE ROUTINE - 
RESPONSE TO AN INTERRUPT CAUSED By THE DUT 


CEIVE CHARACTER . IFO AND DEPOSITS THEM INTO THE RECEIVE 


HALTED (BY DISABLING RX INTERRUPTS). THE ROUTINE EXITS IF THE RECEIVE 
BUFFER BECOMES FULL OR IF A CHARACTER IS READ FROM THE FIFO WITH THE 


5,4 
3* COMMENTS: 
2 


RBUFA - CONTAINS ADDRESS OF THE DUT Rx CHARACTER FIFO, 

RXBCNT - RX BUFFER CHARACTER COUNT. 

RXBOTX - EQUATED TO RX BUFFER LEVEL AT WHICH TO DISABLE Tx, 

RXBEND - LABEL AFTER END OF THE RX BUFFER AREA IN MEMORY, 

RXBFUL - EQUATED TO THE CAPACITY OF THE Rx BUFFER. 

aes ya - POINTER TO NEXT AVAILABLE INPUT SLOT seams BUFFER, 
x - ° 


RXBIPT - UPDATED TO POINT TO NEXT INPUT SLOT OF RX BUFFER, 
RXBCNT - RX BUFFER CHARACTER COUNT C INCREMENTED). 

TXENBM - MAP OF PREVIOUS DUT TX.ENABLE STATES, 

CARRY - “SUCCESS” FLAG (SET IF BUFFER IS NOT FULL). 


PUT THE ADDRESS OF THE LABEL RXCHRS IN THE VECTOR 
LOCATION. 


If THE RX BUFFER IS FULL UPON ENTRY, THIS ROUTINE ABORTS THE 
PROGRAM . 


34 
3* SUBORDINATE ROUTINES CALLED: RXIEO, TXDSBL. 
R-- CPPASOPREDEDAEEOEEDAASODEASEREDESEREDOEAEEEOAREDEDDEDDEEEDREDDOERDSERELEDESA 
RXCHRS: : MOV Ro, -( SP) sSAVE CONTENTS OF GPR R2. 
23: SRBUFA,R2 sREAD A CHARACTER FROM THE DUT Rx FIFO, 
60$ sEXIT THE ROUTINE IF THE DATA. VALID BIT IS CLR, 
RXBCNT,ORXBFUL ;COMPARE BUFFER COUNT WITH BUFFER CAPACITY, 
BLO 4¢ s;SKIP ABORT IF BUFFER IS NOT FULL. 
JSR » OOP sABORT, MUST BE A PROGRAM BUG. 
4$: MOV R2,@RXBIPT sPUT THE CHAR IN THE BUFFER. 
ADD $2 ,RXBIPT sUPDATE POINTER TO THE NEXT BUFFER SLOT, 
CMP RXBIPT,@RXBEND ;CHECK IF POINTER SHOULD WRAP AR ° 
BLO 6$ :SKIP WRAPAROUND IF POINTER IS NOT AT END. 
MOV ORXBSTA,RXBIPT ;WRAP INPUT POINTER AROUND. 
6%: INC RXBCNT sCOUNT THIS CHARACTER AS BEING IN THE BUFFER. 
CMP RXBCNT,ORXBDTX ;CHECK FOR BUFFER AT DISABLE Tx LEVEL, 
BLT 2s sSKIP DISABLING TX IF BUFFER LEVEL NOT CORRECT. 
TST TXOBLF sCHECK STATE OF TX DISABLE FLAG. 
BMI 8$ sBRANCH IF TRANSMISSION ALREADY DISABLED. 
MOV RS, -(SP sSAVE THE VALUE OF GPR RS, 
MOV @MAPLNNS ,RS sSPECIFY THAT ALL LINES SHOULD BE AFFECTED. 
JSR PC,1TXD sCLEAR THE TX ENABLES FOR ALL LINES. 
MOV R5, TXENBM sSAVE PREVIOUS 1X ENABLE STATES IN STORAGE. 


SEQ 175 


Ll FUNC [ST PART4 


6781 027332 
6782 027334 
6783 


6784 027342 
th 54 027350 


6766 
6787 027352 
6788 
6789 027356 
6790 027360 


012605 
012767 


026727 
103723 


004767 


012602 
000002 


100000 153144 


153350 000100 8s: 


175116 


605: 


H14 
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INTERRUPT SERVICE POUTINE - RXCHRS - 


CSP )+.R5 
*BIT15, TXDBLF 


— - ORXBF UL 
$ 


PC .RXIEO 
CSP)+,R2 


sRESTORE GPR RS. 
sPREVENT TX FROM BEING ‘ISABLED AGAIN, 


CHECK FOR BUFFER FULL CONDITION. 
sLOOP TO READ ANOTHER CHAR IF BUFFER NOT FULL. 


;BUFFER IS FULL, DISABLE Rx INTERRUPTS, 
sRESTORE R2 TO ITS SAVED VALUE. 


SEQ 1764 


TRAP SERVICE ROUTING 


6821 027402 


021627 
001402 


114 
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™ - TP4BRT - 


-SBTTL TRAP SERVICE ROUTINE 


- TP4BRT - 


* BUS TIME-OUT TRAP (004 TRAP) SERVICE ROUTINE 
tt THIS ROUTINE IS USED DURING THE DMA ADDRESS TEST. 

- IT DETERMINES IF THE 004 TRAP WAS CAUSED BY AN “EXPECTED” ERROR OR 

8 NOT BY EXAMINING THE RETURN PC VALUE ON THE STACK. IF THE TRar oc 

en UNEXPECTED. THIS ROUTINE JUMPS TO THE NORMAL DIAGNOSTIC SUPERVISOR 

a 004 TRAP HANDLING ROUTINE. 

& 

te INPUTS: SP - POINTS TO THE PC WHERE THE TRAP OCCURED. 

oa TRPAD2 - LABEL AT THE ADDRESS WHERE “EXPECTED” TRAPS OCCUR. 

- TP4FLG - 004 TRAP FLAGS. 

eo 

t@ OUTPUTS: TP4FLG - BIT 15 IS SET IF “EXPECTED” TRAP OCCURED. 

a 

$4 CALLING SEQUENCE: PUT ADDRESS POINTED TO BY TP4BRT IN 004 VECTOR. 

3 OCCURENCE OF 004 TRAP VECTORS TO THIS ROUIINE 

& 

:¢ COMMENTS: ANY 004 TRAP WHICH OCCURS AT AN ADDRESS OTHER THAN THAT LABELED 
ee TRPAD2 WILL BE HANDLED BY THE NORMAL 004 TRAP SERVICE ROUTINE. 
* THIS ROUTINE IS USED IN CONJUNCTION WITH CKTRPB SUBROUTINE. 
34 


SECECEAERESEREEEDE EERE EERE REREREDROSS 


3# SUBORDINATE ROUTINES CALLED: NONE. 


b POSLSNSERSESOREEEEEEAEESESEDEEERAREADEDADEOOERARDDLERDDDRDRDDEDEARDREADALODORDS 


017320 oo ao eee 
152662 JMP @TP4vEC : 
100000 152652 23: on OBIT1S5, TP4FLG 


sCOMPARE EXPECTED ADDR WITH TRAP RET PC. 
43 THE Y te CONTINUE THIS ROUTINE 


AL 004 TRAP SERVICE RIN. 


3 O NORM 
sSET THE 004 TRAP OCCURED FLAG. 
sALL DONE, GO BACK TO THE TEST. 


J14 
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6846 

6847 027404 
6846 027410 
6849 rs Lot 


6850 02741 
6851 027424 


021627 
02 


017270 


152640 
100000 


152630 


-SBTTL GLOBAL TRAP SERVICE ROUTINE - TP4RTN - 

PURE Oa pate peat eT TTT TTT TTT TTT TTT Tee TTT 
; BUS TIME-OUT TRAP (004 TRAP) SERVICE ROUTINE - 

;* THIS ROUTINE DETERMINES IF THE 004 TRAP WAS CAUSED BY 

:* AN “EXPECTED” ERROR OR NOT BY EXAMINING THE RETURN PC VALUE ON THE 

:¢ STACK. IF THE TRAP IS UNEXPECTED, THIS ROUTINE JUMPS TO THE NORMAL 

$¢ DIAGNOSTIC SUPERVISOR 004 TRAP HANDLING ROUTINE - 

;¢ 

3* 

3@ INPUTS: SP _- POINTS TO THE PC WHERE THE TRAP OCCURED. 

34 ADRPTR - LABEL AT THE ADDRESS WHERE “EXPECTED” TRAPS OCCUR. 

36 TP4FLG - 004 TRAP FLAGS. 

34 

3* OUTPUTS: TP4FLG - BIT 15 IS SET IF “EXPECTED” TRAP OCCURED. 

34 

3* CALLING SEQUENCE: PUT ADDRESS POINTED TO BY TP4RTN IN 004 VECTOR. 

34 OCCURENCE OF 004 TRAP VECTORS TO THIS ROUTINE. 

34 

3 COMMENTS: ANY 004 TRAP WHICH OCCURS AT AN ADDRESS OTHER THAN THAT LABELED 
34 ADRPTR WILL BE HANDLED BY THE NORMAL 004 TRAP SERVICE ROUTINE, 
3% 


3* SUBORDINATE ROUTINES CALLED: NONE. 


F CPPRSPRORESESEDEEEDAEDEEEEDSSSEDEEREDAEEEADDDDEEHDARADRDDDDEDREREADREREEEOORS > 


piri” < lhe damatailaa sCOMPARE EXPECTED ADR AGAINST TRAP RET PC. 


JMP STP4VEC sIF NOT,JUMP TO NORMAL 004 TRAP SERVICE RIN. 
2%: BIS #8IT15,TP4FLG SET THE 004 TRAP OCCURED FLAG. 
RTT ;ALL DONE, GO BACK TO THE TEST. 


SEQ 174 


K14 
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6855 


i 
6862 027426 


7 
cant 027440 


2 
6893 027442 


€905 
6906 
6907 027466 
6908 027474 


004567 
017701 
010100 
000402 


017701 
100033 


000301 
042701 
010104 
006304 
016405 


026464 
103403 


155672 
152542 


152532 


177760 


002364 


003502 003442 


-SBTTL INTERRUPT SERVICE ROUTINE - TXDMA - 


see OAPPPDDESOSESOSESSOSEDEESESESSSSESOOEEEOEAEAEDEEEADEEEEEEEREREEREDEOLOOEEES 


:4 - OMA TRANSMIT INTERRUPT SERVICE ROUTINE - 

3* THIS ROUTINE EXECUTES IN RESPONSE TO AN INTERRUPT CAUSED BY THE DUT 
3 TX.ACTION BIT BECOMING ACTIVE. THIS ROUTINE INITIATES THE Tx OF A 

34 NEW DMA BUFFER OF CHARACTERS OR SETS THE TX DONE FLAG FOR THE CORRECT 
34 LINE IF TX IS COMPLETE ON THAT LINE. 

;* 

3* INPUTS: BITTBL - LABEL OF TABLE OF WORDS EACH WITH A BIT SET. 

34 CNCNTB - BASE OF @ OF CHARS TO TXx/Rx TABLE. 

34 CSRA - CONTAINS THE ADDRESS OF THE DUT CSR. 

34 DPENDB - BASE OF THE DATA PATTERN END TABLE CENTRY PER LINE). 
34 DPLENB - BASE OF THE DATA PATTERN LENGTH TABLE. 

34 IESTAT - PRESERVED STATES OF THE DUT INTERRUPT ENABLE BITS. 
34 TXCNTB - LABLE AT BASE OF THE Tx CHARACTER COUNTER TABLE. 

34 TXPTRB - LABEL AT BASE OF THE Tx DATA PATTERN POINTERS TABLE. 
3;* 

3* OUTPUTS: TXCNTX - COUNTERS INCREMENTED FOR LINES ON WHICH CHARS SENT. 


34 TXDONF - TX DONE FLAGS SET FOR LINES WHICH HAVE SENT ALL CHARS. 


34 TXINTF - TX INT FLAGS (BIT SET IF DMA.HO FOUND SET ON LINE). 
34 

3# CALLING SEQUENCE: PUT THE ADDRESS OF THE LABEL TXDMA IN THE VECTOR 

54 LOCATION. 


& 

;* COMMENTS: 
34 

3* SUBORDINATE ROUTINES CALLED: DODMA. 


$-- SAREREREDESESEELERAEEEREEEEEAEODADEEEEEEAEEAREDARDDEDDDDEDEDRERDRERACALLOOS 


TXDMA:: SAVE sSAVE CONTENTS OF GPRS RO THRU RS. 
JSR >.PREGOS sCALL REGISTER SAVE SUBRT. 
MOV @CSRA,R1 sREAD THE CONTENTS OF THE DUT CSR. 
MOV R1,R0 sSAVE INITIAL CONTENTS OF IND. ADR.REG FIELD, 
BR 43 sBRANCH TO SKIP DOUBL READING OF DUT CSR. 


3 
; READ THE CONTENTS OF THE DUT CSR. THIS WILL CLEAR THE TX.ACTION CSR BIT. 
; If TX.ACTION IS NOT SET, EXIT THIS ROUTINE. 
s DETERMINE THE LINE FOR WHICH THE TX.ACTION WAS SET. 
s CALCULATE AN OFFSET FOR USE IN ACCESSING TABLES (2 TIMES THE LINE NUMBER), 
; GET THE BIT MAP OF THIS LINE. 
| ad 
2s: MOV @CSRA,R1 sREAD THE CONTENTS OF THE DUT CSR. 
43: BPL 60% sEXIT ROUTINE IF TX.ACTION IS CLEAR. 
SWAB R1 sCALCULATE THE LINE NUMBER OF THE LINE WHICH IS 
BIC #177760,R1 s_ ASSOCIATED WITH THE TX.ACTION, 

R1,R4 sCALCULATE AN OFFSET FOR USE IN ACCESSING 

R4 ; LINE COUNTER AND POINTER IN TABLES. 
MOV BITTBLCR4),R5 ;GET THE BIT MAP OF THIS LINE. 
3 * 


INE, 
IF ALL THE CHARACTERS HAVE BEEN i. THIS LINE: 


Py 
. 
; DON’T SEND A CHAR TO THE LINE (NO MORE TX.ACTIONS ON THIS LINE). 
; LOOP TO CHECK THE TX.ACTION FOR ANOTHER LINE. 


CMP TXCNTBCR4),CHCNTB(R4) ;COMPARE # CHARS SENT AND Ix COUNT, 
BLO 6$ sG0 TO SEND A CHAR IF NOT ALL CHARS SENT. 


“F . | ye 


L14 
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6909 027476 050567 153000 BIS RS, TXDONF ;SET THIS LINE'S TX DONE FLAG. 
6910 027502 000757 BR 23 sLOOP TO CHECK Tx.ACTION AGAIN. 
1 3° 
6912 : START THE DMA OF THE NEXT BUFFER (DATA PATTERN) ON THIS LINE. 
6913 ; GET THE DATA PATTERN LENGTH FOR THIS LINE 
6914 ; GET THE START ADDRESS OF THE DATA PATTERN: 
~ Tew 
6916 027504 016403 903202 6s: MOV  DPLENB(R4>,R3 — ;PASS DATA PATTERN LENGTH FOR LINE TO DODMA. 
6917 027510 016402 003342 MOV = TXPTRBCR4),R2 = ;PASS THE TX START ADR TO DODMA. 
3 * 
6919 ; WRITE DMA PARAMETERS TO THE DUT. 
6 3- 
6921 027514 004767 170172 JSR PC ,DODMA 
692¢ 027520 103403 BCS 8$ ;SKIP ERROR IF DODMA WAS SUCCESSFUL. 
3* 
6924 ; SET THE PROPER BIT OF THE TX INTERRUPT FLAGS TO INDICATE THE LINE ERROR. 
i 
6926 027522 050567 152536 BIS RS, TXINTF ;INDICATE THE ERROR. 
6927 027526 000402 BR 103 ;SKIP UPDATING POINTERS AND COUNTERS. 
3+ 
6929 ; UPDATE THE TX CHARACTER FOR THIS LINE. 
6930 ; UPDATE THE TX BUFFER POINTER FOR THIS LINE. 
g- 
6932 027550 060364 003502 8s: ADD = R3.TXCNTBCR4) —; ADD THE DATA PAT LENGTH TO THE TX COUNT. 
3* 
6934 s LOOP TO CHECK THE TX.ACTION BIT FOR ANOTHER LINE. 
g- 
6936 027534 000742 10$: BR 23 sLOOP BACK TO CHECK TX.ACTION BIT AGAIN. 
6938 027536 016701 152472 605: MOV _—sCIESTAT,RI1 GET THE PRESENT STATES OF TX.IE € RX.IE BITS. 
6939 027542 042700 177760 BIC  0177760,RO ;GET SAVED IND.ADR.REG FIELD BITS. 
6940 027546 050001 BIS RO,R1 sCOMBINE IND.ADR.REG FIELD BITS WITH IE BITS. 
6941 027550 010177 152424 MOV R1.8CSRA sRESTORE THE DUT CSR IND.ADR.REG FIELD. 
6942 027554 PASS ;RESTORE GPRS. 


027554 004736 JSR PC,a(SP)-+ sRETURN TO PREGOS SUBRT, 
6943 027556 000002 ? RTI 


M14 
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000167 
000000 


104425 


-SBTTL REPORT CODING SECTION 


s+* 
; THE REPORT CODING SECTION CONTAINS THE 
3; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:; 
. WORD 
- WORD 
L10016: 
TRAP 


JS JMP 
L10016-2-. 


CsRPT 


PROTEATTON Table 4 


6984 027566 
027566 

6985 

6986 027566 

6987 027570 

6968 027572 

6989 

6990 027574 

6991 


177777 
177777 
177777 


N14 
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-SBTTL PROTECTION TABLE 


zee 
; THIS TABLE IS USED BY THE RUNTIME SERVICES 
; TO PROTECT THE LOAD MEDIA. 


BGNPROT 

L$PROT:: 
-1 ;OFFSET INTO P-TABLE FOR CSR ADDRESS 
-1 ;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
-1 ;OFFSET INTO P-TABLE FOR DRIVE NUMBER 
ENDPROT 


7051 
7052 


027574 
027574 


027574 
027574 


027612 


027614 
027614 


027672 
027700 


012700 
104447 


103416 
012700 
104447 
103556 
012700 
104447 
103555 
012700 
104447 
103161 
000167 


104433 


B15 
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-SBTTL INITIALIZE SECTION 


see 


“§G 


SE een peseocoodoccoscoenonnoonsesesecooneascascoenscecesenenesecceteacens 


s¢ THIS SECTION CONTAINS THE CODE WHICH IS PERFORMED AT THE BEGINNING OF 
:¢ EACH PASS OR AFTER A CONTINUE C : 
3° THIS CODE PERFORMS THE FOLLOWING ACTIONS: 
;¢ 
s* MOVES THE INFORMATION HELD IN THE HARDWARE P-TABLE INTO THE GLOBAL 
36 DATA AREA. 
34 
OOOO OOO OOODOODEODODEDEDOOOERELOREDEEEEEDEDEDODELOLEEDEDEEREEEREESeOCeseccece 
3 --«- 
BGNINIT 
LSINIT:; 
sSEE IF PROGRAM JUST STARTED, BR IF YES 
READEF EF .START 
000040 MOV OEF .START RO 
TRAP CSREFG 
BCOMPLE TE NEWSTA 
BCS NEWSTA 
sSEE IF PROGRAM JUST RESTARTED, BR IF YES 
READEF 9O€F .RESTART 
000037 MOV @EF RESTART RO 
TRAP CSREFG 
BCOMPLE TE NEWRES 
BCS NEWRES 
sSEE IF THIS IS A NEW PASS, BR IF YES 
READEF 9o€F .NEW 
TRAP CSREFG 
BCOMPLE TE NEWPAS 
BCS NEWPAS 
sSEE IF PROGRAM WAS JUST CONTINUED 
READEF EF .CONTINUE 
0000 36 MOV OEF . CONTINUE ,RO 
TRAP CSREFG 
BNCOMPLE TE GE TPRM 
BCC GE TPRM 
000540 JMP ENDIT 
NEWSTA; 
BRESET sRESET THE BUS TO PREVENT ILLEGAL INTERRUPTS, 
TRAP CSRESET 
3° 
s SET UP FOR LINE TIME CLOCK INTERRUPTS, 
t ~ 
CLOCK t,R1 sGET THE CLOCK PARAMETERS. 
000114 MOV O'R 
TRAP CSCu cn 
MOV RO,RL 
152412 MOV (R1)+, CLKCSR sSTORE CLOCK CSR ADDRESS. 
152410 MOV (R1)>, CLKBRL sSTORE CLOCK BUS REQ INT LEVEL, 
152406 MOV C(R1)>+ .CLKVEC sSTORE CLOCK INTERRUPT VECTOR, 
S24 MOV (R1L)> CLKHRZ sSTORE CLOCK FRE Y, 
152400 000062 CMP CLKHRZ, 050. sTEST FOR SOMZ LINE FREQUENC:. 
BNE 2% sBRANCH IF CLOCK IS NOT 5SON7, 


|e 


oa he 
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7053 027702 012767 000024 152400 MOV 220. .MSTICK sINDICATE 20MS PER CLOCK TICK. 

7054 027710 000403 BR 4$ 

7055 027712 012767 000021 152370 23: MOV #17. .MSTICK sINDICATE 17 MS PER CLOCK TICK. 

7056 027720 43: SETVEC CLKVEC.@CLKINT,@PRIO6 ;INITIALIZE CLOCK INTERRUPT VECTOR. 
027720 012746 000300 MOV OPRIOG, -( SP) 
027724 012746 027146 MOV OCLKIN’, -( SP) 
027730 016746 1523460 MOV CLKVEC, -(SP) 
027734 012746 000003 MOV 03, -(SP) 
027740 104437 rRAP CS8SvEC 
027742 062706 000010 ADD #10,S5P 

7057 027746 016700 152324 MOV CLKHRZ,RO sINITIALIZE THE BREAK COUNT 

7058 027752 300 ASL RO :; TO CAUSE A BREAK 

7059 027754 010067 152326 MOV RO,.BCOUNT ; EVERY 2 SECONDS. 

7060 027760 SETPRI oPRIOS sALLOW CLOCK INTERRUPTS DISABLE OTHERS. 
027760 012700 000240 MOV OPRIOS,RO 

neti 027764 104441 TRAP C$SPRI 

3 * 

706¢ ¢ ENABLE THE LINE TIME CLOCK (LTC) CHECKING TO MAKE SURE THAT THE CSR 

7065 ; IS ACCESSABLE. 

sare 3 FIRST SET UP TO CATCH ANY 004 TRAPS WHICH OCCUR: 

065 an 

7066 027766 016767 150012 152262 MOV 4, TP4VEC sSAVE THE EXISTING 004 TRAP VECTOR. 

7067 027774 012767 027404 150002 MOV @TP4RIN,4 sSET 004 TRAP VECTOR TO OUR SERVICE RIN ADR. 

9 ; ENABLE LTC CHECKING FOR 004 TRAP IN CASE CSR IS NOT THERE. 

7071 030002 152246 CLR TP4FLG sCLEAR THE 004 TRAP FLAG. 

7072 030006 012767 100 152252 MOV #B81T6,WORD1 sSET UP TO SET BIT6 OF THE LTC CSR. 

7073 030014 012700 002266 MOV 1,R0 sSET UP WORDI AS THE CKTRAP MOvc SOURCE. 

7074 030020 016701 152244 MOV CLKCSR,R1 sSET UP LTC CSR AS DESTINATION FOR CKTRAP MOVE. 

7075 030024 767 167226 JSR PC ,CKTRAP sMOVE AND CHECK FOR TRAP. 

7076 030030 016767 152222 147746 MOV TP4VEC,4 sRESTORE THE 004 TRAP VECTOR. 

7077 030036 103403 ecs 65 sIF NO TRAP, LTC IS THERE SO CONTINUE. 

7078 030040 005067 152232 CLR CLKHRZ sCLEAR LTC FREQUENCY WORD TO INDICATE NO LIC. 

7079 030044 000402 aR BS sBYPASS THE FOLLOWING CALIBRATION PROCEDURES. 

5 * 

| s CALIBRATE THE DELAY ROUTINE MILLI-SECOND DELAY COUNT VALUE, 

g.° 

ross 030046 004767 166020 63; JSR PC, CALMSL 

3? 
7085 3 CHECK FOR MEMMORY MANAGEMENT PRESENT ON THIS MACHINE. 
Uh ; IF MEM MGT IS PRESENT, DISABLE IT. 

§ 

7088 030052 016767 147726 152176 8&3: MOV 4, TP4VEC sSAVE THE EXISTING 004 TRAP VECTOR. 

7089 030060 012767 027404 147716 MOV @TP4RIN, 4 sSET 004 TRAP VECTOR TO OUR SERVICE RIN ADR. 

7090 0 005067 152162 CLR TP4FLG | sCLEAR THE 004 TRAP Fi.AG. 

7091 030072 005067 152170 CLR WORD 1 sPREPARE TO CLEAR THE MEM MGT SRO REGISTER. 

7092 030076 012700 002266 MOV @WORD1,RO sSELECT CLEARED WORD AS CKTRAP RTN SOURCE. 

7093 030102 016701 152206 MOV MMSRO,R1 sSELECT MEM MGT SRO REGISTER AS DESTINATION. 

7094 0301 5067 152206 CLR MMPRES s INDICATE NO MEM MGT PRESENT IN CASE IT ISN'T. 

7095 030112 005067 204 CLR NAB s INDICATE MEM MGT IS NOT ENABLED. 

7096 030116 004767 167134 JSR PC .CKTRAP sCLEAR THE MEM MCT SRO REG AND CHECK FOR TRAP. 

7097 030122 016767 152130 147654 MOV TP4VEC .4 sRESTORE THE NORMAL 004 TRAP VECTOR, 

7098 030130 103003 BCC 10% sSKIP INDICATING MEM MGT PRESENT IF IT ISN'T. 

7099 030132 012767 000001 152160 MOV @1,MMPRES s INDICATE THAT MEM MGT IS PRESENT. 

7100 030140 005067 152076 10$: CLR PASCNT sCLR COUNTER USED IN REPORTING ROM VERSION o. 

7101 030144 000167 JMP NEWPAS sSKIP AROUND THE BUS RESET, IT’S BEEN DONE. 


PAY 1 thi SY sb OF BARA 


306 
030310 


030312 


104433 
005067 


012767 


111167 


016701 
005201 


001378 


012700 


DiS 
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152064 


177777 


152052 
152044 


151774 
151770 


151760 


151746 


151714 


000007 
002202 


002512 


152012 


151602 


sRESET THE BUS TO PREVENT ILLEGAL INTERRUPTS, 
TRAP CSRESET 
sCLR COUNTER USED IN REPORTING ROM VERSION 0. 


NEWRES: BRESET 
CLR 


NEWPAS: 
MOV &-1,UNITN sRESET LOGICAL DEVICE TO -1 


3¢ 

; INCREMENT THE PASS COUNTER, CORRECT FOR ANY OVERFLOW. 
s THIS COUNTER IS USED IN THE ROM VERSION TEST. 

g- 


PASCNT 


INC PASCNT ; INCREMENT THE PASS COUNTER, 
BNE GE TPRM sBRANCH IF WE HAVE NOT YET? OVERF LOWED. 
DEC PASCNT sSET PASS COUNT TO 177777 OCTAL. 
: oy ne HARDWARE PARAMETERS FOR THIS UNIT. 
INC UNITN s INCREMENT LOGICAL DEVICE NUMBER 
CMP UNITN,LSUNIT sSEE IF MAXIMUM UNIT NO. EXCEEDED 
BGE NEWPAS ;BR IF YES 
GPHARD UNITN.Ri1 sGET P-TABLE POINTER INTO Rl 
MOV UNITN,RO 
TRAP CSGPHRD 
MOV RO,R1 
BCOMPLETE 30$ ;BR IF DEVICE AVAILABLE _— . 
O$ 
BR GE TPRM sSKIP THIS DEVICE 
3#44¢0060006 HARDWARE PARAMETER MOVING CODE PTT TTT TTT TY TTTTT 
30%: MOV (R1)+,CSRA sSTORE DHU-11 CSR ADDRESS IN DEV.REG.ADDRESS TABLE 
MOV (R1)+,R2 sGET THE RX INTERRUPT VECTOR ADDRESS, 
MOV R2,RXVECA sSTORE RX INT VECTOR ADDRESS. 
ADD 04,R sCALCULATE 7x INTERRUPT VECTOR ADDRESS. 
MOV R2, TXVECA sSTORE TX INT VECTOR ADDRESS. 
MOV (R1)>+, ACTLNS sSTORE DHU-11 ACTIVE LINE BIT map 
™OvVB (R1),LOPBCK sSTORE OHU-11 LOOPBACK MODE 
s* 
; CALCULTATE DEVICE REGISTER ADDRESSES,AND PUT THEM IN THE 
5 DEVICE REGISTER ADDRESS TABLE. 
3 
MOV CSRA,R1 sCOPY CSR ADDRESS 
INC Rl ; INCREMENT CSR ADDRESS 
INC Ri ; COPY BY 2. 
MOV o7,R3 sSET UP REGISTER COUNT 
MOV ORBUFA,R2 sGET LOCATION WHERE RBUF ADDRESS GOES IN TABLE 
128; MOV R1,(R2)-+ sSTORE REGISTER ADDRESS IN TABLE 
INC R1 :I MENT REGISTER S 
INC Ri s BY 2,FOR THE NEXT DEVICE REGISTER. 
DEC R3 sDECREMENT REGISTER COUNT 
BNE les sLOOP IF NOT DONE 


3° 
s INITIALISE THE BMP CODE QUEUE. 


3 
MOV #BMPCOB ,RO sGET THE STAR” ADDRESS OF THE QUEUE. 


“F F 


14% 
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7154 030316 012701 002712 MOV @BMPCGE .R1 ;GET THE END ADDRESS OF THE QUEUE. 
7155 030322 010067 152162 MOV RO. BMPCGP ;SET THE POINTER TO THE START OF THE QUEUE. 
7156 030326 005020 14$: CLR CRO)> s;CLEAR OUT THE CONTENTS OF THE QUEVE. 
7157 030330 020001 CMP RO,R1 s;CHECK IF END OF QUEUE HAS BEEN REACHED. 
Stee 030332 103775 BLO 1i4$ ;LOOP IF NOT ALL DONE. 
i 3° 
7160 s REPORT THE UNIT NUMBER IF THE SOFTWARE P-TABLE QUESTION WAS ANSWERED vES, 
7161 ; AND THE MAXIMUM UNIT NUMBER IS GREATER THAN ae 
162 s- 
7163 030334 032767 000020 151620 BIT #BIT4,OPTION ;CHECK IF THE QUESTION WAS ANSWERED YES. 
7164 030342 001416 BEG 16$ SKIP REPORTING UNIT NUMBER IF IT IS DISABLED. 
7165 030344 026727 151442 000001 CMP LSUNIT, #1 ;CHECK MAXIMUM NUMBER OF UNITS SELECTED. 
7166 030352 003412 BLE 16$ 300 NOT REPORT UNIT NUMBER IF MAX NUMBER « 1. 
7167 030354 PRINTF OMFUNIT,UNITN ;REPORT UNIT NUMBER. 
030354 016746 151616 MOV UNITN, -CSP) 
030360 012746 007535 MOV OMF UNIT, -(SP) 
0350364 012746 000002 MOV 82, -CSP) 
030370 010600 MOV PR 
030372 104417 TRAP CSPNTF 
050374 062706 000006 ADO 06 ,SP 
7168 030400 16$: 
7169 
ae 030400 ENDIT: 
3* 
aa ; SET THE PROCESSOR PRIORITY TO DISABLE ALL INTERRUPTS. 
3 - 
7174 0304600 SETPRI ¢PRIO7 ;SET PROCESSOR PRIORITY TO 7, 
030400 012700 000340 MOV #PRIO7,RO 
7175 050404 104441 TRAP CSSPRI 
7176 030406 ENDINIT 
030406 L10020; 
2999 030406 104411 TRAP CsINIT 


7178 000000 TNUM == 0 sINITIALIZE THE ASSEMBLER TEST NUMBER VARTABLE., 
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7161 aaah aiaatataiataiaiciciciniaiaieiciainnnnnaaninnnne eer TT 
7182 3 
7183 3 FVTD.ATD 
7164 ; | 
7185 ahaa aaeaaatataataiataiciciaiiainiaiaiataiaieinnaencnannn eer 
7187 
7188 
7169 -SBTTL AUTODROP SECTION 
719¢ 
7191 
7192 56 
7193 s THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
7194 ; THE “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
7195 s SEE IF THEY WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY 
71% s DROPPED FROM TESTING. 
7197 $-- 
7198 
7199 030410 BGNAUTO 

030410 LSAUTO:; 
7200 
7207 
7208 030410 ENDAUTO 

0 0 L10021: 


5041 
030410 104461 TRAP CSAUTO 


G15 
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7217 
7218 
7219 -SBTTL CLEANUP CODING SECTION 
7554 
s** 
7222 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
7555 ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
g=-< 
7225 
7226 030412 BGNCLN 
030412 LSCLEAN:;: 
1555 
7237 030412 005767 151602 TsT CTRLCF sDID WE GET HERE By CTRL-C FROM TEST? 
7236 030416 001401 BEG 2s ;CTRL-C FROM TEST? NO, SKIP BUS RESET. 
7239 030420 BRESET ;YES, CLR ANY DMAS OR OUTSTANDING INTERRUPTS. 
050420 104433 TRAP CSRESET 
7240 030422 2s: 
7241 030422 EXIT CLN 
030422 104432 TRAP CSEXIT 
030424 000002 -WORD L10022-, 
7242 
7254 
7255 EVEN 
7256 
7257 030426 ENDCLN 
0350426 L10022; 


030426 104412 TRAP CSCLEAN 


Hid 
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030430 
030430 


030536 


0536 
030536 


104453 


-SBTTL DROP UNIT SECTICN 


se 
s THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NG LONGER BE TESTED. 

gc 


3GNDU 
L$DU:: 
3 ShS60c naa 
3 INSERT DROP CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
$ A “DROP” COMMAND A "DODU" MACRO EXECUTION THE PURPOSE 
3 OF THIS CODE IS TO DO ANY NECESSARY HOUSEKEEPING AFTER A 
3 UNIT HAS BEEN DROPPED. THIS SECTION IS OPTIONAL. 
3 SEES 
PRINTF #DROP,RO ;REPORT UNIT THAT HAS BEEN DROPPED. 
MOV RO, -( SP) 
MOV DROP , -( SP) 
MOV @2,-CSP) 
MOV »RO 
TRAP CSPNTF 
ADD #6,SP 
BR EDROP ;BRANCH AROUND THE MESSAGE. 
DROP : -ASCIZ/#A UNITSD68A DROPPED FROM FURTHER TESTING. #N/ 
-EVEN 
EDROP: 
EXIT DU 
» WORD J$ IMP 
6 WORD L. 10023 -e . 
ENDDU 
110023; 
TRAP C$Du 


SEQ 189 


1 he 
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DROP UNIT SECTION 


7304 -SBTTL ADD UNIT SECTION 


3°? 
7307 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
7306 s TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
+94 ; TO THE TEST CYCLE. 

g-@ 


1 
7312 030540 BGNAY 
. 0350540 L$AU:: 


3 SES 6S SS Os os WS 9h Oh os Og os os ws 
3 INSERT ADD CODE HERE. THIS CODE WILL BE EXECUTED AFTER 
7316 $ AN “ADD” COMMAND. THE PURPOSE OF THIS CODE IS TO DO ANY 
; HOUSEKEEPING THAT MAY BE NECESSARY AFTER A UNIT HAS BEEN ADDED. 
; THIS SECTION IS OPTIONAL. 
7319 alalaalattiniatetatataialatciaiainiaiaiaisitainiciaieiaaisiaininnanianainnasancncccrcn TT TE 


7321 030540 EXIT AU 
030540 000167 -WORD = JSJMP 
030542 000000 -WORD L10024-2-, 


7324 ~EVEN 


5 
7326 030544 ENDAU | 
030544 110024; 
030544 104452 TRAP CsaAU 


DrU-11 FUNC 
MAROWARE 


TES 


5st PARTS 


012767 


016767 
012767 
005005 


016701 
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147174 
027404 


151352 
031020 
166420 
100001 
000017 


151320 
166372 


100002 


000010 
151274 
000104 
031020 
166334 
100001 
000060 


151444 
147164 


000146 


000110 


J1i5 


SEQ 1%) 
-SBTTL HARDWARE TEST - ADRA - 
se 
5 SOODAOROLDODESEOSEESSSESESSASEEDEDEODEDDEDREDEEEELEDELLEREARDDAREESEORELEORCS 
34 - REGISTER ADDRESS TEST - 
;* 
3¢ THIS TEST VERIFIES THAT THE DEVICE REGISTERS WILL RESPOND TO THE PROPER 
36 SI S WHEN ACCESSED. IF THE DHU11 DOES NOT RESPOND 
34 TO THE ACCESS ATTEMPTS CIF THE DHU11 IS AT THE WRONG ADDRESS. FOR EXAMPLE ) 
34 THE 004 BUS TIME-OUT TRAP IS DETECTED BY THIS ROUTINE AND AN ERROR 
3* IS REPORTED. THIS TEST IS PERFORMED ON LINE 0 T. 


Tl:: 
s INCREMENT THE get TIME TEST COUNTER. 


MOV &TNUM, TSTNUM sSET UP THE TEST NUMBE 

MOV #-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 

MOV #101. ,ERRNBR sSET THE TEST ERROR NUMBER IN THE TABLE. 

MOV MEMO1O3,ERRMSG ;SET UP THE TEST FAILURE MESSAGE IN THE TABLE, 
MOV ERO101,ERRBLK ;SET-UP THE ERROR ROUTINE IN THE ERROR TABLE, 


3° 
; SET UP TO CATCH ANY 004 TRAPS WHICH OCCUR: 
R= 


MOV 4, TP4VEC sSAVE THE EXISTING 004 TRAP VECTOR. 
MOV #TP4RITN,4 sSET 004 TRAP VECTOR TO OUR SERVICE RIN ADR. 
CLR RS sCLEAR THE ERROR FLAGS. 


3* 

; HERE BEGINS THE LOOP TO TEST THE REGISTERS FOR A LINE. 

; FIRST TEST THE CSR AND SET THE IND.ADR.REG CI.A.R) FIELD. 
g = 


MOV CSRA,RO ;SET UP CSR AS THE CKTRAP MOVE SOURCE. 
MOV #523 ,R1 sSET UP DESTINATION LOCATION FOR CKTRAP MOVE, 
JSR PC,CKTRAP sMOVE AND CHECK FOR TRAP. 
BCS 8G sIF NO TRAP, BYPASS ERROR 
BIS #100001 ,R5 sSET FATAL READ ERROR FLAGS. 
4$; BIC #17,52$ s;CLEAR THE I.A.R FIELD OF THE CSR DATA, 
MOV R1,RO0 sUSE OLD DESTINATION FOR SOURCE OF CKTRAP MOVE. 
MOV CSRA,R1 sSET UP CSR AS THE CKTRAP MOVE DESTINATION, 
JSR PC,CKTRAP sMOVE AND CHECK FOR TRAP. 
BCS 6$ IF NO TRAP, BYPASS ERROR. 
BIS $100002 ,R5 sSET FATAL WRITE ERROR FLAGS. 
40$ sEXIT AND REPORT FATAL ERROR. 
3* 
; NOW, WE TEST EACH REGISTER FOR THIS LINE. 
3° 
6$: MOV #8. ,R2 sINIT REGISTER COUNTER T ° 
MOV CSRA,50$ sINITIALIZE THE REGISTER POINTER. 
8$; MOV $,RO sSET UP REGISTER AS THE SOURCE FOR CKTRAP MOVE. 
MOV #S2s,R1 sSET UP LOCAL STORAGE AS THE DES FOR K TRAP, 
BCS 10$ sIF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS, 
BIS #100001 ,R5 ;SET FATAL READ ERROR FLAGS, 
103: MOV R1,RO0 ;USE OLD DEST AS SRC FOR CKTRAP MOVE, 
MOV 50$,R1 sSET UP REGISTER AS THE DEST FOR CKTRAP MOVE. 


K1i5 


SEQ 192 
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7385 030736 004767 166314 JSR PC ,CKTRAP sPERFORM THE MOVE, CHECK FOR TRAP, 
7386 030742 103402 BCS 2$ ;IF NO TRAP, BYPASS THE SETTING OF ERROR FLAGS. 
7387 030744 052705 100002 BIS #100002 ,.R5 ;SET FATAL WRITE ERROR FLAGS. 
7388 030750 005267 0000462 12$: INC 50$ : INCREMENT THE REGISTER 
7389 030754 005267 000036 INC 50$ ; POINTER BY 2. 
7390 030760 302 DEC R2 ;COUNT THE REGISTER. 
54 030762 001351 BNE 8$ ;LOOP TO TEST THE NEXT REGISTER ADDRESS. 
7393 3* 
394 3 DONE CHECKING DEVICE REGISTER ADDRESSES. 
7395 ; T ANY ERRORS AND EXIT. 
1597 2 
7398 030764 016767 151266 147012 40%: MOV TP4VEC,4 sRESTORE THE NORMAL 004 TRAP VECTOR, 
7399 030772 005705 TST R5 ;CHECK THE ERROR FLAGS. 
7ao1 030774 100012 BPL 60$ sEXIT ROUTINE IF NO ERRORS. 
3 + 
rank ; REPORT “DEVICE REGISTER ACCESS TEST FAILED” 
7404 030776 ERROR 
030776 104460 TRAP CSERROR 
he 
7407 031000 DODU UNITN ;DROP THIS UNIT FROM FUTHER TESTING. 
931000 016700 151172 MOV UNITN,RO 
031004 104451 TRAP CsD0DU 
7408 031006 005067 151206 CLR CTRLCF s INDICATE NO CTRL-C ABORT FROM TEST. 
7409 031012 DCCLN sABORT THIS SUB PASS. 
31012 104444 TRAP CSOCLN 
sate 031014 000402 BR 60$ ; 
7412 $*¢ee¢eseee40000% LOCAL STORAGE. SRERDEEEAOAEREDREADAAAAEARADDARARERADERRED 
7413 031016 000000 : ‘ 0 sSTORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE. 
7414 031020 000000 52%: - WORD sSTORAGE FOR THE SOURCE OR DEST OF THE CKTRAP MOVE, 
dF $*ebeeeeeebeeseeseae END SEPEREEEEEDEOEERAAOREAEEEADEERAEREAADAERAAR ERE R ERD 
416 
7417 031022 905067 151172 60%: CLR CTRLCF s INDICATE THAT WE ARE NOT WITHIN A TEST, 
7418 031026 ENDTST 
31026 L10025;: 
031026 104401 TRAP CsETsT 


Lids 
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7420 -SBTTL HARDWARE TEST - KBECHO - 
7421 ;** COOOPOELSEEDSEEEEESSEOEODEEESODESESESEDEEDEDADEEREDEDEEEEREEEDERDERDEEEALES 
7422 3 - KEYBOARD ECHO TEST - 
7423 3 THIS IS A TEST WHICH PUTS UARTS FOR THE ACTIVE LINES INTO REMOTE 
7424 34 LOOPBACK MODE. THE ACTIVE LINE VARTS ARE SET UP WITH A BAUDRATE 
7425 34 WHICH IS SPECIFIED BY THE OPERATOR. THIS TEST SETS UP THE LINES 
7426 34 FOR: 1 STOP BIT, NO PARITY AND 8 BITS/CHARACTER. 
i 3* THE TEST EXECUTES INDEFINITELY UNTIL TERMINATED BY THE OPERATOR. 
3* 
7429 34 THIS TEST CAN BE USED FOR LOOPING BACK TERMINAL KEYBOARD INPUT ONTO 
7430 34 A TERMINAL CRT OR IT CAN BE USED AS A GENERAL LOOPBACK METHOD FOR 
7431 34 TESTING COMMUNICATIONS LINKS TO THE DUT FROM THE OTHER END OF THE 
7432 34 CHANNEL. OTR AND RTS ARE SET ON THE SELECTED LINES DURING THIS 
a 3* TEST TO ALLOW THE TESTING OF MODEM LINKS. 
;* 
7435 g-- acted T TL TTT TTT TT TT TTT eee TTT eee 
7436 031030 BGNTST 
031030 T2:: 
7437 031030 SETPRI #PRIOS sALLOW LTC INTERRUPTS. 
031030 012700 000240 MOV #PRIOS,RO 
031034 104441 TRAP CS$SPRI 
7438 000002 TNUM == TNUM + 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER, 
5 44 031036 012767 000002 151214 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (94) 
3° 
7441 ; VERIFY THAT THE TEST SHOULD BE PERFORMED. MUST HAVE THE FOLLOWING: 
7442 ; KEYBOARD ECHO LOOPBACK SELECTED. 
pees ; MANUAL INTERVENTION ALLOWED. 
4 — 
7445 031044 126727 151124 000005 CMPB =6LOPBCK, #5 sTEST THE LOOPBACK TYPE INDICATOR. 
7446 031052 001402 BEQ 2$ sKBD ECHO LPBCK SELECTED? YES, CONTINUE TEST, 
7447 031054 EXIT TST 3NO, ABORT THE TEST. 
031054 104432 TRAP CSEXIT 
031056 000212 -WORD L10026-., 
7448 031060 2s: MANUAL sCHECK FOR MANUAL INTERVENTION ALLOWED, 
031060 104450 TRAP CSMANI 
7449 031062 BCOMPLETE 45 sMANUAL INTERVENTION ALLOWED? YES, DO TEST. 
031062 103402 BCS 4$ 
7450 031064 EXIT TST sNO, ABORT THE TEST. 
031064 104432 TRAP CsExIT 
7452 031070 012767 177777 iSli22 4%; MOV #-1,CTRLCF s INDICATE THAT WE ARE IN A TEST. 
7453 031076 012767 000001 154210 MOV #1, ERRTYP sSET ERROR TYPE AS FATAL IN ERROR TABLE, 
7454 031104 012767 022271 154204 MOV #79401. ,ERRNBR s;SET THE FIRST ERROR NUMBER IN ERROR TABLE, 
7455 031112 012767 013022 154200 MOV @EM9401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
raat 031120 005067 151354 CLR ERSMRF sINITIALIZE THE "REPORT ERROR SUMMAR) ” FLAGS, 
3* 
7458 ; RESET THE DUT TO A KNOWN STATE, REMOVE THE STATUS CODES FROM THE FIFO, 
7459 ; CLEAR TX AND RX INTERRUPT ENABLE BITS IN THE CSR, 
meat ; THIS SUBROUTINE REPORTS ERROR >>>>> 9401 <<<cc, 
3° “ 
7462 031124 004767 166206 7 JSR PC,CLNRST sRESET THE DHU-11, REPORT ANY ERRORS FOUND , 
7463 031130 103402 BCS . +6 sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND, 
race 031132 000167 000120 JMP 60$ sRESET FAILURE, ABORT THIS TEST. 
3+ 
7466 ; PRINT THE TEST NAME. 


7467 ss 


7478 031162 


1200 

74865 031202 
031204 
7487 031210 
7489 031214 
7490 031220 


7491 
7492 031224 
031230 


7499 031234 
7500 031242 


7501 
7502 
75038 
7504 
7505 031256 


031270 


Raothnt YESS PA's 


012767 
104443 
000404 
002230 
000130 
013437 
000001 


012700 
104441 
005067 


104401 


M15 
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013022 
005530 


167140 


000377 
000030 
150752 
175672 


011304 
175632 


000001 150766 


000340 
150730 


PRINTF #EFO503,9EM9401 


ee Gt Ge G2 Gs @s G: os 
* 


MOV »RO 
ASL 1 

ASL R1 

ASL Ri 

ASL R1 

BIS R1,RO 
SWAB RO 

BIC #377 ,RO 
BIS #30,RO 


MOV ACTLNS,RS 
JSR PC,WTWLPR 


MOV #11304 ,RO 
JSR PC ,WTWLNC 


SEQ 194 
MOV 0EM9401, -(SP) 
MOV SEF OSO3, -(SP) 
MOV 02,-(SP) 
MOV SP RO 
TRAP =—s-s CSPINTF 
ADD #6, SP 


SET UP THE DUT UARTS WITH THE PROPER LINE PARAMETERS. 
GET THE DESIRED BAUDRATE FROM THE OPERATOR. 
CALCULATE PROPER DUT LPR CONTENTS. 

SET UP THE DUT LPR REGISTERS. 
GET THE PROPER DUT LNCTRL REGISTER CONTENTS. 
SET UP THE DUT LNCTRL REGISTERS. 


sGET DUPLICATE COPIES OF BAUDRATE CODE 
; IN THE UPPER BYTE OF THE NEW 
; LPR CONTENTS. 


sSET UP 1 STOP BIT, NO PARITY, 8 BITS/CHAR 
; IN THE LPR CONTENTS. 


sGET THE ACTIVE LINES BIT MAP, 
sSET UP THE DUT LPR REGISTERS FOR ACTIVE LINES, 


sSET UP DTR, RTS, REMOTE LPBK, AND RX ENABLE. 
sSET UP THE DUT LNCTRL REGS FOR ACTIVE LINES, 


3+ 
; WAIT FOR THE OPERATOR TO TERMINATE THE TEST. 
3 PROMPT “TYPE <CR> TO TERMINATE THE TEST: ” 


MOV #1 ,GMANWD 
GMANIL TERMSG,GMANWD,1, 


sSET UP DEFAULT ANSWER TO YES. 


YES 
TRAP C$GMAN 
BR 10000$ 
-WORD GMANWO 
-WORD TSCODE 
-WORD TERMSG 
. WORD 


10000$; 


+ 
WE GOT A RESPONSE FROM THE OPERATOR, SO TERMINATE THE TEST. 


he 
60$: SETPRI #PRIO7 


CLR CTRLCF 
ENDTST 


sDISABLE ALL INTERRUPTS. 
MOV oPRIO7,RO 


TRAP CSSPRI 
sINDICATE THAT WE ARE NOT WITHIN A TEST, 


L10026: 


TRAP CseTsrT 


Ni5 


DH-11 FUNC TST PART4 MACRO M1200 15-MAR-84 09:48 PAGE 133 


HARDWARE TEST 
7509 -SBTTL HARDWARE TEST - MODLPB - 
7510 3¢¢ CODPOOSESEDSSSEDSSSOSESEDDEESEDESESAEDDODEDEDADEDADEDEREDEDDEERALEEEOOEE‘S 
7511 34 - MODEM LGOPBACK TEST - 
7512 34 THIS TEST IS USED TO MOVE DATA THROUGH A MODEM WHICH IS CONNECTED 10 
7513 34 ONE OF THE DEVICE SERIAL PORTS. THIS TEST IS RUN ONLY IF MODEM 
7514 34 LOOPBACK IS SPECIFIED. THIS TEST UTILIZES THE FOLLOWING OPERATOR 
7515 3* DIALOGUE : 
7516 34 MODEM BAUDRATE IN BPS: (D) 1200 ? 
7517 3 TYPE <CR> WHEN MODEM LINK ESTABLISHED: (L) yY ? 
7518 34 MODEM STATUS SIGNAL REPORT: 
7519 3* LINE @N: OSR=N, RI=N, DCD=N, CTS=N 
7520 3* eee REPEATED FOR EACH ACTIVE LINE 
7521 34 NUMBER OF 256 BYTE DATA PATTERNS TO SEND ON EACH SELECTED LINE 
7522 ;* (1-255, O=SEND UNTIL tC): (D) 1 ? 
ik 5 34 PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: (L) Y ? 
3% 
7525 34 AT THE COMPLETION OF SENDING THE SPECIFIED NUMBER OF DATA PATTERNS THE 
7526 ;* TEST ISSUES THE FOLLOWING PROMPT: 
ik Hh 3% EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA): (L) Y ? 
;* 
7529 3% IF EXTENDED ERROR REPORTING IS ALLOWED, A REPORT IS PRINTED AT THE END 
7530 5* OF EACH DATA PATTERN WITH THE FOLLOWING FORMAT: 
tees ;* MODEM LOOPBACK TEST STATUS REPORT: PATTERN @#NNN (D) COMPLETED. 
3 
7533 ;4 THIS TEST IS PERFORMED USING 8 BITS PER CHARACTER, 1 STOP BIT, AND NO 
7534 34 PARITY. THIS TEST DOES NOT SUPPORT SPLIT § ED. ALL SELECTED LINES 
7535 ;* ARE TESTED AT THE SELECTED BAUORATE. AN ERR SUMMARY IS REPORTED AT 
7536 ;* THE END OF THE TEST IF ANY LINES HAVE EXCEEDED THE NUMBER OF INOIVIDUAL 
Lb +H ;* DATA ERRORS TO REPORT AS SELECTED IN THE SOFTWARE P-TABLE DIALOGUE . 
;* 
7539 s-- SAARSSEREAEEEREEERERAREREEEEEREAAARREAREEOEADEARDDEEEDARADDARRADDRRRSRERROS 
7540 031272 ST 
031272 
7341 031272 SETPRI #PRIOS sALLOW LTC INTERRUPTS, 
051272 012700 000240 MOV #PRIOS,RO 
031276 104441 TRAP CsSPRI 
7542 000003 TNUM == TNUM + 1 sINCREMENT THE ASSEMBLY TIME TEST COUNTER, 
reas 031300 012767 000003 150752 MOV #TNUM, TSTNUM ;SET UP THE TEST NUMBER. (89) 
3* 
7545 ; VERIFY THAT THE TEST SHOULD BE PERFORMED. MUST HAVE THE FOLLOWING: 
7546 ; MODEM LOOPBACK SELECTED. 
read ; MANUAL INTERVENTION ALLOWED. 
| te 
7549 031306 126727 150662 000004 CMPB = =LOPBCK, #4 sTEST THE LOOPBACK TYPE INDICATOR. 
7550 031314 001402 BEQ 2s sMODEM LOOPBACK SELECTED? YES, CONTINUE TEST. 
7551 031316 EXIT TST 3NO, ABORT THE TEST, 
031316 104432 TRAP CsExIt 
031320 000702 »-WORD  1£10027-, 
75S2 031322 es: MANUAL. sCHECK FOR MANUAL INTERVENTION ALLOWED, 
031322 104450 TRAP CSMANI 
7553 031324 BCOMPLETE 4$ sMANUAL INTERVENTION ALLOWED? YES, DO TEST. 
031324 103402 BCS 4% 
7554 031326 EXIT TST sNO, ABORT THE TEST. 
031326 104432 TRAP CSEXIT 
031330 000672 -WORD 110027-, 


75355 
7556 031332 012767 177777 150660 4$: MOV #-1,CTRLCF s INDICATE THAT WE ARE IN A TEST. 


HARDUAR é Est? 


"557 031340 
7S5@ 031346 
7559 031354 
ree, 031562 


7576 


7581 031470 
031474 


PARTS 


012767 


012700 
104441 


012746 


012746 
012746 
016746 
012746 
104437 
062706 


012700 
10444} 


012700 
004767 


012746 


aT al 


000001 
021505 
011146 
1Siii2 


165744 
000610 


000340 


00030C0 
027426 
150546 
000005 
000010 
000300 
027216 
150516 
0000053 
000010 
000200 


003302 
165660 


011146 
005530 
000002 


000006 


153746 
153742 
153736 


616 


“EQ 194 
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MOv #1.,ERRT YP sSET ERROR TYPE AS FATAL IN ERROR TABLE. 
MOV #68901. ,ERRNBR sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV ®EMB901.ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
CLR ERSMRF s INITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
3 
s RESET THE DUT TO A KNOWN STATE, REMOVE THE STATUS CODES FROM THE FIFO, 
s CLEAR TX AND Rx INTERRUPT ENABLE BITS IN THE CSR, 
s THIS SUBROUTINE REPORTS ERROR »>>>> 8901 Cee, 
g- 
JSR PC,CLNRST sRESET THE DHU-11, REPORT aANy ERRORS FOUND. 
BCS -*6 sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND, 
JMP 60% sRESET FAILURE, ABORT THIS TEST, 
3° 
; SET UP FOR TRANSMIT AND RECEIVE INTERRUPTS, 
3- 
SETPRI OPRIO7 sOISABLE ALL INTERRUPTS, 
MOV OPRIO?7, RO 
TRAP CsSPRI 
SETVEC TXVECA, @TXDMA, oPRIOG sSELECT OMA Tx INT SERVICE RIN. 
MOV OPRIO6, -( SP) 
MOV @TXDMA, -( SP) 
MOV TXVECA, -( SP) 
TRAP CsSvec 
ADD #10,SP 
SETVEC RXVECA, ORXCHRS, OPRIOG sSELECT Rx INT SERVICE RIN. 
MOV ORXCHRS, (SP) 
MOV . » CSP) 
TRAP CSSvEC 
ADD #10,S5P 
SETPRI OPRIO4 sALLOW INTERRUPTS, 
MOV OPRTO4 ,RO 
TRAP CsSPRI 
$s * 
s CLEAR THE CUMULATIVE ERROR COUNTERS (ONE FOR EACH LINE), 
3° 
MOV ®ERCNTB,RO 
JSR PC,CLRi6wW sCLEAR THE RX ERROR COUNTERS TABLE. 
3° 
; PRINT THE THE TEST NAME. 
3- 
PRINTF OFF OSOS, OEMB901 
MOV OEMB9OL, -( SP) 
MOV OEFOSOS, (SP) 
MOV 02, (SP) 
MOV P,RO 
TRAP C SPNTF 
ADD 96, 5°? 


3 

s PREPARE TO CALL THE SET UP ROUTINE. 

3 GET THE DESIRED BAUDRATE FROM THE OPERATOR. 

H CALCULATE PROPER DUT LPR CONTENTS. 

: CALCULATE THE PROPER RX "IME -OUT VALUE FOR THIS SPEED, 


Aitkobhal “HE #5! 


031622 
031624 


031066 


PARTS 


004767 


004 767 
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1065 76 


000377 
0000350 


166754 
177400 


003602 


000020 


175222 


167332 


150442 


150356 


Clo 


“tO 197 


3 SET UP THE BIT MAP OF UNUSED Tx/Rx BITS. 
5 = 


JSR PC ,GETBDR 
MOV R1.,RO 
ASL Ri 
ASL Ri 
ASL R1 sGET DUPLICATE COPIES OF BAUDRATE CODE 
ASL Ri s IN THE UPPER BYTE OF THE NEW 
BIS RO,.R1 s LPR CONTENTS. 
SWAB R1 
BIC 9377 ,R1i sSET UP 1 STOP BIT, NO PARITY, 8 BITS/CHAR 
BIS 030,R1 ; IN THE LPR CONTENTS. 
JSR PC,GETTIM sGET TIME-OUT BASED ON MINIMUM BAUORATE IN USE, 
MOV #177400, IBM sFORM BIT MAP OF UNUSED TX/RX BITS. 
3* 
i SET UP A 256 BYTE DATA PATTERN. 
Rg- 
CLR RS sPREPARE TO START DATA PATTERN AT 255. 
a + ill sGET THE BASE OF THE DATA PATTERN BUFFER, 
6%: DECB R3 sGET THE NEXT BYTE OF THE DATA PATTERN, 
MOVB R3,(R4)- sWRITE A BYTE OF THE DATA PATTERN. 
TSTB RB sCHECK FOR DONE WRITING DATA PATTERN. 
6$ sDATA PATTERN DONE? NO, LOOP TO DO NExT BYTE, 
sYES, WRITE 32 BYTE OVERFLOW REGION. 
MOV R2,R5 sPREPARE SOURCE POINTER, 
MOV #16. ,RO0 sPREPARE LOOP COUNTER. 
8$: MOV CRS)+,(R4)> sWRITE 2 BYTES OF THE OVERFLOW PATTERN, 
DEC RO sCOUNT THESE 2 BYTES. 
BNE 8% 816 WORDS WRITTEN? NO, LOOP TO WRITE ANOTHER, 
sYES, COMPLETE DATA PATTERN IS DONE. 
MOV 9256. ,R3 sSET DATA PATTERN LENGTH TO 256. 


3° 
; SET THE DUT RTS AND DIR BITS FOR THE ACTIVE LINES. 


5° 
MOV #11000,RO0 sSPECIFY TO SET RTS AND OTR. 
MOV ACTLNS RS sSPECIFY ACTIVE LINES. 
JSR PC ,WITWLENC sSET DUT RTS AND DTR ON ALL ACTIVE LINES, 


3 

s WAIT FOR THE OPERATOR TO ESTABLISH THE MODEM CONNECTION, 
; PROMPT “TYPE <CR> WHEN MODEM LINK ESTABLISHED; ” 
‘ 


MOV #1,GMANWD sSET UP DEFAULT ANSWER TO YES, 
GMANIL EMULMSG,GMANWD,1, YES 


TRAP C SGMAN 
BR 10000 $ 
»WORD GMANWD 
-WORD TSCODE 
»WORD = EMLMSG 
» WORD 

10000$ ; 


3* 
s REPORT THE STATE OF THE MODEM STATUS SIGNALS. 
3 SET DEFAULT OF PRINTING MODEM STATUS AFTER EVERY DATA PATTERN, 


é 
JSR PC,MSSRPT 


Dib 
“FO 198 


BittodAnt et PARTS 


504 031672 012767 000001 150344 
76 i 


MACRO fh200 15-MAR-84 09:48 PAGE 153-3 


MOV ©1,PMSFLG 


7634 s ASK OPERATOR FOR THE NUMBER OF DATA PATTERNS TO SEND. 
1645 ¢ PROMPT: “NUMBER OF 256 BYTE DATA PATTERNS TO SEND ON EACH SELECTED LINE 
7646 : (1-255, O=SEND UNTIL *C): (D) 1 2” 
764 “8 
7648 031700 012767 000001 150322 103: MOV 01, GMANWD sSET DEFAULT NUMBER OF PATTERNS TO 1. 
7649 031706 GMANID NDPMSG,GMANWD.D,377,0,255. YES 
031706 104443 TRAP C$GMAN 
031710 000406 BR 10001$ 
031712 002230 WORD GMANWOD 
031714 000052 .WORD TSCODE 
031716 013224 .WORD NDPMSG 
031720 000377 . WORD 377 
031722 WORD TSLOLI™ 
031724 000255 .WORD  TSHILIM 
031726 100018; 
7650 0317 016704 150276 MOV GMANWD , R4 
7651 031732 005005 CLR RS sCLEAR THE DATA PATTERN COUNTER. 
vane 031734 005067 150264 CLR  FERROR sCLEAR THE “AT LEAST ONE ERROR" FLAG 
3° 
7454 ¢ ASK IF MODEM STATUS SIGNALS SHOULD BE REPORTED AFTER EACH DATA PATTERN, 
7655 s PROMPT: “PRINT MODEM STATUS SIGNAL REPORT AFTER EACH PATTERN: (L) Y ?” 
sf 5 USE LAST RESPONSE AS DEFAULT (DEFAULT OF YES THE FIRST TIME). 
ge 
7658 031740 GMANIL PMSMSG.PMSFLG,1.YES 
031740 104443 TRAP C$GMAN 
031742 000404 BR 100023 
031744 002244 WORD PMSFLG 
031746 000130 WORD TSCODE 
031750 013352 . WORD PMSMSG 
031752 000001 . WORD 
031754 100025: 
7659 
7660 3° 
7661 ; SET UP THE DUT AND TX/RXx VARIABLES. 
7662 ; Rl - TX, RX LPR CONTENTS. 
7663 ; Re - START ADDRESS OF DATA PATTERN TO Tx/Rx. 
7664 ; R3 - LENGTH OF DATA PATTERN. 
Lh + ; SEND THE DATA, 
3? 
7667 031754 005205 12%: INC RS sCOUNT THIS DATA PATTERN, 
7668 051756 004767 166752 JSR PC ,MODSUP sSET UP THE DUT AND TX/RX VARIABLES. 
7670 031762 004767 170662 JSR PC,PUFIFO sPURGE THE DUT RECEIVE CHARACTER FIFO, 
a ge] 031766 103110 Bcc 60% sABORT THIS TEST IF FIFO WOULD NOT PURGE, 
7673 031770 004767 171140 JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY, 
7674 031774 004767 166614 JSR PC, INIOMA sSEND THE FIRST BATCH OF DATA PATTERNS. 
7675 032000 012767 021306 153310 MOV #8902.,ERRNBR  ;SET ERROR NUMBER TO 8905. 
i 
rer? 3 THIS ROUTINE REPORTS ERRORS WITH NUMBERS »>>>> 8902 THRU 8907 C4446, 
sh 
rer 032006 004767 171156 JSR PC ,ROCHRS sREAD AND VERIFY THE Rx CHARACTERS. 
7681 032012 005767 150206 TS! FERROR sHAS AN ERROR BEEN DETECTED ? 
7682 032016 001404 BEQ 13% sBRANCH If [T HASN'T. 


DMU-11 FUNC TST 


MAFIDWARE TEST 


7685 
’684 


032020 
032026 


032030 


032036 


032070 
032072 


052076 


032140 


32142 
032144 
032150 


PARTS 

032767 
001430 
012767 


004767 


026727 
001257 


005000 
012705 
004 767 


E16 
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000100 


921314 153260 13%: 


174204 


005422 
000002 


000006 
150154 
167126 


000001 


150072 


177777 
174712 


150134 


150112 


000001 


BIT + baited aa sHAS EXTENDED ERROR 


BEG 16 sBRANCH TO THE “EXIT TEST 2?» QUESTION IF 
MOV #6908 . .ERRNBR 3SET ERROR NUMBER TO 8908. 
3* 
s THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 8908 
3 
JSR PC, TXRREP sREPORT FINAL FRRORS FROM Rx/R»x, 
3 
s REPORT END OF DATA PATTERN IF ALLOWED. 
H “MODEM LOOPBACK TEST STATUS REPOR’: PATTERN @NNN (0) COMPLETED 
s REPORT THE MODEM STATUS SIGNAL STATES IF REQUESTED. 


"  PRINTX EDPFMT.RS 


REPORTING BEEN REQUESTED ? 


NOT. 


THRU 8911 eee, 


SEG 199 


MOV RS, -(SP) 
MOV OEDPFMT, -( SP) 
MOV SP ,.RO 
TRAP CSPNTX 
ADD 06 ,,SP 
TST PMSFiLG sCHECK THE “PRINT MODEM STATUS” FLAG, 
BEQ 14$ sPRINT MODEM STATUS? NO, SKIP PRINTING. 
JSR PC.MSSRPT sREPORT THE MODEM STATUS, 
$¢ 
; IF THERE ARE MORE DATA PATTERNS TO SEND, LOOP SACK TO SEND AGAIN, 
§ 
14%; DEC R4 sCOUNT THIS DATA PATTERN, 
BEQ 16% sLAST DATA PAT SENT? YES, PROMPT FOR EXIT, 
BPL 12s sNO, CONTINOUS SENDING? NO, SEND NEXT Par. 
INC R4 sYES, RESTORE PATTERN COUNTER. 
BR i2$ sGO TO SEND NEXT DATA PATTERN, 


3; * 
s PROMPT FOR EXIT OF THE TEST OR SENDING OF MORE DATA PATTERNS. 
s PROMPT: “EXIT THE TEST (N = LOOP BACK TO SEND MORE DATA): ¢L) y 2” 


16%: MOV #1 ,GMANWD sSET DEFAULT ANSWER TO YES. 

GMANIL EXTMSG,GMANWD,1, YES 
TRAP C $GMAN 
BR 10003+% 
-WORD GMANWD 
. WORD T S$CODE 
-WORD EXTMSG 
» WORD 

100053; 
CMP GMANWD , #1 sCHECK OPERATOR RESPONSE, 
BNE 10$ sEXIT RESPONSE? NO, LOOP TO SEND MORE DATA, 


sNO, EXIT ROUTINE, 


3° 

3 ALL DONE. HAVE BEEN TOLD TO EXIT. 
; CLEAR DEVICE DIR AND RIS SIGNALS. 

; DISABLE INTERRUPTS, 

; CLEAR THE INTERRUPT VECTORS. 

; REPORT AMY NECESSARY ERROR SUMMARIES. 
; 


CLR RO s INDICATE TO CLEAR ALL LNCIRE BITS, 
MOV OMAPLNS ,R5 sINDICATE TO CLEAR FOR ALL LINES, 
JSR PC ,WIWLNC sCLEAR ALL THE RTS AND DIR SIGNALS. 


HARDWARE “YE st” 


7727 

7728 032154 
032154 
032160 

7729 032162 
0 

7730 032170 
032174 


7732 032176 


032222 


PARTS 


012700 
104441 


016700 
104436 
016700 
104436 


012767 
004767 


012700 


104441 
005067 


104401 


F16 
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000340 
150002 
147772 
171620 


000340 
147776 


153112 


SE TPRI 


CLRVEC 


CLRVEC 


#PRIO7 

TXVECA 

RXVECA 

98912. ,ERRNBR 
PC ,REPSMR 
oPRIO7 


CTRLCF 


sDISABLE ALL INTERRUPTS. 


MOV oPRIO7,RO 

TRAP CsSPRI 
sRETURN TX INT VECTOR TO UNUSED POOL . 

MOV TXVECA,RO 

TRAP CsCvec 
sRETURN RX INT VECTOR TO UNUSED POOL. 

MOV RXVECA,RO 

TRAP CsCvec 


SELECT NUMBER 8912 FOR THE NEXT ERROR REPORT. 
sREPORT ERROR SUMMARIES IF CALLED FOR, 
sDISABLE ALL INTERRUPTS. 


MOV @PRTIO7,RO 
TRAP CSSPRI 
sINDICATE THAT WE ARE NOT WITHIN A TEST, 
L10027; 
TRAP CserTsr 


Rikobbet YE f57 P8r4 


032224 
032224 


032224 


032262 
032270 


0352276 


032302 
032306 
032310 


032314 
032322 


032330 
032334 


032336 
032344 


86 032352 


032354 


012767 


005067 


004767 
103402 
000167 


016767 
012767 


005767 
001007 


012767 


012767 
000442 


012767 


Glo 
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000240 


000004 
177777 
000001 
010461 
010174 
014032 


001402 


165030 
001332 


145464 
027404 


147764 


001252 
000021 


005252 


153030 
153024 


147734 
145454 


147656 
001324 


147640 


-SBTTL HARDWARE TEST - DMAADR - 


3+ PRAMAS OTTSOCESHSSSDS09600086905000005005050000800000000800006000000004 00 


3 - DMA ADDRESSING TEST - 
34 THIS TEST VERIFIES . AS FAR AS POSSIBLE , THAT THE DUT CAN PERFORM A 
34 DMA FROM A FULL 18 BIT OR 16 BIT ADDRESS. THE TEST RELIES ON FINDING A 
3* COMPLEMENTARY PAIR OF ADDRESSES BETWEEN THE TOP OF PHYSICAL MEMORY AND 
34 THE START OF THE TOP OF THE DIAGNOSTIC PROGRAM . 
8 THIS MAY INVOLVE REMOVING PART OF THE DIAGNOSTIC RUNTIME SERVICES AND 
34 THEN RESTORING. THE NUMBER OF BITS THAT HAVE BEEN SUCCESSFULLY TESTED 
34 WILL BE PRINTED AT THE CONSOLE AT THE END OF THE TEST, IF REQUESTED, 
3% 
t-- ae eee e ese eeseeeeesennsenesseessaccsonessecascocccnnscncccancce 
BGNTST 
T4:;: 
SETPRI #PRIOS sALLOW LTC INTERRUPTS 
MOV &PRIOS,RO 
TRAP CsSPRI 

TNUM == TNUM + 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER 

MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER 

MOV &-1,CTRLCF sINDICATE THAT WE ARE IN A TEST 

MOV #1,ERRTYP sSET ERROR TYPE AS FATAL IN ERROR TABLE 

MOV 64401. ,E 3SET ERROR NUMBER TO 4401 

MOV 9EM4401,ERRMSG ;SET ERROR MESSAGE ADDRESS IN TABLE 

MOV ®EROSOS,ERRBLK ;SELECT THE CORRECT ERROR REPORTING ROUTINE 
+ id 
; CLEAR THE SUCCESS FLAG TO INDICATE TEST FAILURE IN CASE IT DOES 


5° 
CLR sucss sINDICATE FAILURE , IN CASE THE DUT FAILS 


§* 

s RESET THE DUT TO A KNOWN STATE,REMOVE THE STATUS CODES FROM THE FIFO. 
; CLEAR TX AND RX INTERUPT ENABLE BITS IN THE CSR 

g- 


JSR PC,CLNRST sRESET THE DHU , REPORT ANY ERRORS | 
BCS . +6 sSKIP EXIT OF TEST IF NO FATAL ERROR FOUND, 
JMP 60% sEXIT THE TEST, FATAL ERROR WAS FOUND, 


* 
; SET UP THE 004 TRAP VECTOR TO POINT TO OUR TRAP SERVICE ROUTINE, 


MOV 4, TP4VEC sSAVE THE EXISTING 004 TRAP VECTOR 
MOV #TP4RIN,4 sPOINT THE VECTOR AT OUR SERVICE ROUTINE, 


3° 
s DETERMINE WHETHER MEMORY MANAGEMENT IS PRESENT 
ie 


TST MMPRES ;IF MEM MGT IS PRESENT THEN 
BNE i$ sAVOID SETTING THE DMA TEST ADDR FOR 
3A 16 BIT MACHINE. 
MOV #1252, 0MTSTA sSET UP THE FIRST DMA TEST ADDR FOR 
sA 16 BIT MACHINE 
MOV #17. BITSTD ;SET THE BITS TESTED 10 16+ 1 
BR 10$ sSINCE MEM MGT ISN’ T PRESENT 


; THERE'S NO NEED TO SET UP THE MEM MGT REGS, 
3 ¢ 
: SET UP THE HIGHEST POSSIBLE TEST ADDRESS IN DMTSTA 
is: MOV #5252 ,DMISTA sSET UP THE FIRST DMA TEST ADDRESS FOR THE 


SEQ 201 


Rabobhak YE<|S" Panre 


032362 


032370 
032372 


032376 
032400 
032404 
032410 
032412 


032420 


032444 


032460 


032466 


032512 


012767 


005000 
012701 
910031 
062700 
022701 
001372 


912777 


012767 


104431 
010067 
012701 
005004 


012700 
104441 
00 


005005 


Hilo 
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; 18 BIT MACHINE 


000023 001306 MOV 219. .BITSTD sSET THE BITS TESTED TO 18 BITS . 1. 
s SET UP THE PARS O THROUGH 6 TO RELOCATE TO THE SAME ADDRESS 
= 2 
CLR RO ;SET THE PAGE BASE ADDRESS TO ZERO 
002324 MOV ®PARATB.R1 sPOINT \T THE START OF THE PAR ADDRESS TABLE 
23: MOV RO,a(R1)> ;LOAD THE PAR 
000200 ADD #200,RO sCALCULATE THE NEXT PAGE ADDRESS 
002342 CMP OPARTA,R1 sLOOP UNTIL PARS 0 THROUGH 6 
BNE 23 ;ARE LOADED. 
¢ SET UP THE INPUT/OUTPUT PAGE PAR TO THE TOP akw OF PHYSICAL MEMORY 
177600 147722 MOV #177600,@PAR7A ;SET PAR ®7 TO POINT AT THE TOP axw 
; SET UP THE PDRS FOR , NO ABORT/TRAP, UPWARD EXPANSION,128 BLOCKS PER PAGE 
ge 
077406 MOV ©77406.RO sBIT PATTERN FOR THE PDRS 
002344 MOV &PDRATB,R1 sPOINT AT START OF PDR ADDR TABLE 
4s: MOV RO,a(Ri)+ ; 
002364 CMP @PDRATE ,R1 ;LOOP UNTIL ALL PDRS HAVE 
BNE 4$ ;BEEN SET UP. 
3 * 
; SET THE MEM MGT STATUS REG #3 FOR, 18 BIT ADDRESSSING, 
s NO UNIBUS MAPPING, NO D SPACE, IN CASE THIS REG EXISTS. 
¢ NOT ALL UNIBUS MACHINES HAVE MEM MGT STATUS REG #3, SO THE CKTRAP ROUTINE 
s MUST BE USED TO CATCH AN 004 TRAPS THAT OCCUR IF THE REG DOES NOT EXIST, 
5 = 
001226 CLR 70$ sSET UP THE SOURCE OPERAND 
033672 MOV #70$,RO sSET UP THE SOURCE ADDR FOR THE MOVE. 
147642 MOV MMSR3,R1 sSET UP THE DESTINATION ADOR FOR THE MOVE. 
164576 JSR PC,.CKTRAP sPERFORM THE MOVE AND CATCH ANY 004 TRAPS. 
3 * 
; TRY AND FIND A COMPLEMENTARY PAIR OF ADDRESSES WITHIN THE MEMORY AND SAVE 
3 THE CONTENTS OF THE TWO AREAS. THE TEST IS ABANDONED IF A COMPLEMENTARY 
; PAIR HAS NOT BEEN FOUND BEFORE THE AREA OF MEMORY CONTAINING THE 
; DIAGNOSTIC IS ENCOUNTERED. 
} ig 
027362 145316 103: MOV @TP4BRI,4 sCHANGE THE 004 TRAP VECTOR TO POINT TO 
;TP4BRT SINCE THIS IS THE ROUTINE ASSOCIATED 
sWITH THE BYTE SUBROUTINE CKTRPB. 
MEMORY FFREM sGET THE ADDRESS OF THE FIRST FREE WORD 
TRAP C$MEM 
147532 MOV RO, FFREM 
sOF MEMORY ABOVE THE DIAGNOSTIC. 
003602 MOV OBUFBAS,R1 sPOINT AT THE BUFFER WHERE THE CONTENTS OF 
sTHE MEMORY BEING READ ARE TO BE SAVED. 
CLR R4 sCLEAR THE COMPLEMENTARY PAIR INDICATOR (CPI) 
SETPRI #PRIO?7 ;DISABLE CLOCK INTERRUPTS 
000340 MOV OPRIOT,RO 
TRAP CSSPRI 
128: INC Ra ; INCREMENT THE CPI 
CLR RS sINDICATE THAT A SAVE OF THE DATA af 


SEQ 202 


HAnowdae Yes tS" 


7845 
7846 
7847 


032514 


032612 


032614 
032622 


032624 


84 032652 


032654 
032660 


032664 


032670 


032674 
032702 


PARTS 


012703 
004767 
012701 
005767 
001403 
005004 
012701 
022704 
001447 
016767 
000241 
006067 
005367 


032767 


022767 
001014 


012767 


005267 
012701 


000167 


012700 


016767 
016767 
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;CDOMTSTA) IS REQUIRED. 


000020 MOV #16. .R3 sSET THE NUMBER OF BYTES IC BE READ 
165044 JSR .DMRW sSAVE THE DATA CONTAINED art ADDRESS DMTSTA. 
004202 MOV SBUFMID.R1 sPOINT AT SECOND STORAGE AREA 
147520 TST TP4FLG IF WE HAVE VALID MEMORY THEN AVOID CLEARING 
BEG 14$ ;THE CPI AND RESETJING THE SAVE AREA ADDR 
CLR R4 sCLEAR THE CPI. 
003602 MOV SBUFBAS.R1 sRESET THE ADDR FOR THE SAVED DATA STORE 
000002 14%: CMP 2 ,R4 ;IF A PAIR OF COMPLEMENTARY ADDRESSSES HAVE 
;BEEN FOUND THEN 
BEG 17$ :GO ANC WRITE THE TEST Data TO THESE ADORS. 
147444 001122 MOV OMTSTA,ODTSTA sSAVE THE OLD OMTSTA 
CLC ;CLEAR CARRY READY FOR THE ROTATION 
147434 ROR DMTSTA ;COMPLEMENT THE DMTSTA TO PRODUCE THE NEXT 
; DMA TEST ADOR. 
001104 DEC BITSTD sDECREMENT THE NUMBER OF BITS TESTED COUNT 
3 * 
s CHECK THAT THE NEW DMTSTA IS NOT INSIDE THE DIAGNOSTIC PROGRAM 
§- 
176000 147422 BIT #176000,DMTSTA aa >» 1252 , IF IT IS THEN WE’ RE 
a ° 
BNE les sBRANCH AND CONTINUE WITH THE SEARCH 
164710 JSR PC .0M16B sCONVERT THE DMISTA TO A PHYSICAL ADDR. 
147414 CMP RO,FFREM sARE WE INSIDE THE DIAGNOSTIC REGION ? 
BHIS 12$ ;NO , THEN BRANCH AND CONTINUE WITH THE SEARCH 
3* 
sSINCE WE ARE NOW INSIDE THE DIAGNOSTIC, WE INCREMENT BIT #14 OF THE DMTSTA 
sPHYSICAL ADDRESSS AND IF WE‘ RE STILL INSIDE THE DIAGNOSTIC WE ABANDON THE 
sTEST. ONCE WE ARE IN THIS REGION WE ARE ONLY ABLE T0 TEST THE LOWEST 14 BITS. 
g- 
000252 147400 CMP 252 ,DMTSTA sIF THE BIT HAS ALREADY BEEN SET THEN 
BNE 15$ sABANDON THE TEST AFTER REPORTING THE ERROR ’ 
» BECAUSE NO SUITABLE MEMORY HAS BEEN FOUND. 
000652 147370 MOV 9652 ,DMTSTA ;SET THE BIT 
040000 ADD 40000 ,RO sADD THE BIT INTO THE PHYSICAL ADDR 
147364 CMP RO,FFREM ;IF WE'RE NOW STILL INSIDE THE DIAGNOSTIC THEN 
BLO i5$ sREPORT ERROR AND ABANDON THE TEST, 
000016 001024 MOV 914. .BITSTO sOTHERWISE SET THE BITS TESTED TO 14 BITS, 
BR ies sCONTINUVE WITH THE SEARCH, 
152436 158: INC ERRNBR ;SET THE ERROR NUMBER TO 4402 
010224 MOV GEMN4402 ,R1 sSELECT MESSAGE 10 BE REPORTED, 
; “ NO SUITABLE ADDR FOUND. DMA TEST ABORTED © 
000754 168; JMP 343 sJUMP TO THE ERROR, 
3* | 
+ WRITE THE TEST DATA INTO THE TWO AREAS JUST FOUND. IF A TRAP OCCURS WHILE 
; WE ARE WRITING DATA INTO THESE AREAS THEN THE HOST MACHINE IS AT FAULT, 
ied 
005130 17$; MOV &SDPBAS ,RO sSET UP THE SOURCE ADDR FOR THE MOVE AS OUR 
sTEST DATA PASTERN. 
147322 000776 MOV DMTSTA,DUMY sSAVE THE LOWER DMTSTA 
000774 147312 MOV ODTSTA,DMISTA sSTART WITH THE HIGHER OF THE [wo 


3; COMPLEMENTARY ADDRESSES, 


DHU-11 FUNC TST 
HARDWARE TEST 


7902 032710 
7903 032714 
7904 


7905 032720 


7906 
7907 


032724 


032774 


032776 
033002 


033006 
033010 


033014 
033016 
033022 


033024 
03 


033076 


PARTS 

012703 
012705 
012701 
004767 


005267 
012701 


005267 
004767 


010102 
012701 


103402 
060167 
010201 


016705 
012704 
010167 
012767 


012700 
005003 
012702 
006305 
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SEQ 204 


000020 MOV #16. ,R3 ;SET THE NUMBER OF DATA BYTES TO BE WRITTEN 
000001 MOV 71,R5 s INDICATE TO wRITE TO DMTSTA 
000340 MOV #340,.R1 sSET PRIORITY 7 TO DISABLE THE CLOCK 
172254 JSR PC.STPSwW 5 
152362 INC ERRNBR ;SET THE ERROR NUMBER TO 4403 
010272 MOV 9EM4403,.R1 sSELECT THE MESSAGE, 
; “HOST FAILURE. WRITE FAILED TO AN ADDR WHICH 
sHAD BEEN SUCCESSFULLY READ, TEST ABANDONED ” 
164624 JSR ° ;PERFORM THE TRANSFER 
147304 TST TP4FLG sEXIT IF HOST FAILURE 
BNE 16$ ;AND REPORT ERROR. 
000722 147242 MOV DUMY ,OMTSTA sSELECT THE LOWER DMA TEST ADOR., 
0051 MOV 2B, sSELECT THE NEXT DATA PATTERN 
1 JSR ° sPERFORM THE TRANSFER 
147260 TST TP4FLG sEXIT IF HOST FAILURE 
BNE 16$ ; 
34 
; SET UP THE DHU TO PERFORM THE DMA. 
g@- 
3° 
; SET INTERNAL LOOPBACK, ENABLE THE RECIEVER FUNCTION ON THE LINE. 
; SET THE LPR ON THE LINE TO 38.4K BAUD, 8 BITS PER CHARACTER, ODD PARITY, 
; 2 STOP BITS. ENABLE THE TRANSMITTER ON THE LINE. 
ge 
152314 INC ERRNSR ;SET THE ERRNBR TO 4404 
164774 JSR PC,FINACT ha eae AN ACTIVE LINE ON WHICH TO PERFORM 
é o 
MOV R1,Re sSAVE THE LINE NUMBER ON WHICH THE DMA WILL OCCUR 
010367 MOV 9EM4404 ,R1 ;SELECT THE MESSAGE, 
; "NO ACTIVE LINES , TEST ABANDONED " 
BCS .*6 sEXIT IF A LINE COULD NOT BE FOUND ,AFTER FIRST 
000424 JMP 30% sRESTORING THE CONTENTS OF MEMORY , 
MOV R2,R1 sRESTORE THE ACTIVE LINE NUMBER . 
3° 
3 AN ACTIVE LINE HAS BEEN FOUND 
ad 
2 MOV #204 ,RO sPASS THE LWCTRL CONTENTS 
174032 JSR PC ,WTWLNC sINITIALISE THE LNCTRL REGISTER 
177670 MOV 9177670,R0 sPASS THE LPR CONTENTS 
174052 JSR PC, WIWLPR sINITIALISE THE LPR REGISTER 
2360 JSR PC, TXENBL sENABLE TRANSMITTER ON THE LINE 
3+ 
; INITIATE THE DMA 
i> 
000626 MOV ODTSTA,RS sSTART FROM THE HIGHER OF THE PAIR OF ADDR, 
005130 MOV &SDPBAS ,R4 sSET UP THE ADDR OF THE DATA PATTERN 
000610 MOV R1,805 sSAVE THE LINE NUMBER FOR THE DMA 
000600 MOV 2,703 sINITIALISE THE LOOP COUNT 
000052 18$; MOV #52,R0 sSET UP THE LSB’‘S 
CLR RE ;CLEAR THE REG THAT WILL HOLD THE 6 MSB’S 
000006 MOV #6,R2 sCONVERT THE DMTSTA INTO 
20s: ASL 3A PHYSICAL ADDRESS WITH 
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7959 033106 006103 ROL R3 ;THE MSB'S IN REG 03. 
7960 033110 005302 DEC R2 ; 
7961 033112 001374 BNE 203 ; 
7962 033114 932705 000100 BIT #100,R5 sTEST BIT @6 OF THE DMTSTA 
7963 033120 001402 BEQ 223 
7964 033122 012700 000025 MOV 225,RO SALTER THE LSB'S IF BIT 6 WAS SET. 
7965 033126 060005 22%: ADD RO,.RS s;ADD IN THE LSB'S 
7366 033130 052703 000200 BIS #200 ,R3 SSET BIT @7. 
7368 033134 016777 000534 147036 MOV 80$ ,@CSRA sSELECT THE LINE ON WHICH TO PERFORM THE DMA. 
7970 933142 012767 0104665 152146 MOV #4405..ERRNBR ;SET ERROR NUMBER 4405 
7971 033150 012701 010426 MOV 9€M4405,R1 ;SELECT THE MESSAGE. 
7972 ;_" DMA_START BIT FOUND SET BEFORE DMA INIT, 
7973 ;TEST ABANDONED” 
7974 033154 105777 147034 TSTB @TXAD2ZA sTEST THE DUT DMA-START BIT 
7975 033160 100532 BMI 30$ sEXIT WITH ERROR IF SET ,AFTER FIRST RESTORING 
7976 ;THE CONTENTS OF MEMORY 
7977 033162 012777 000020 147026 MOV #16. ,@TXBFCA :SET UP CHARACTER COUNT. 
7978 033170 010577 147016 MOV RS,@TXADIA sSET UP BITS O TO 15 OF THE PHYISCAL ADDR. 
ih ia 033174 110377 147014 MOVB R3,@TXAD2A sSET UP BITS 16 TO 21 , AND INITIATE THE OMA. 
7981 “y WAIT FOR THE OMA TO COMPLETE AND THE LAST CHARACTER TO BE RECIEVED 
+ 
7983 033200 012701 170144 MOV #170144,R1 sTEST BIT 15, TIME-OUT OF 100 MS. 
7984 033204 016702 146770 MOV CSRA,R2 sPASS THE ADDR OF THE REG TO TEST. 
7386 033210 005267 152102 INC ERRNBR ;SET ERROR NUMBER TO 4406 
7988 033214 004767 173572 JSR PC,WAIBIS sWAIT FOR BIT TO SET 
7989 033220 012701 010522 MOV €M4406,R1 s;SELECT THE MESSAGE 
7990 ;_" TIME-OUT OCCURED WAITING FOR OMA TO 
7991 s;COMPLETE. TEST ABANDONED” 
7992 033224 103110 BCC 303 sEXIT IF TIME-OUT OCCCURED, AFTER FIRST , 
7993 sRESTORING THE CONTENTS OF MEMORY 
7994 033226 010402 MOV R4,R2 ; SAVE 
7995 033230 012704 000005 MOV 05,R4 ;SET 5" HS DELAY 
7996 033234 004767 164216 JSR PC, DELAY ;DELAY 10, ALLOW LAST CHARACTER TO BE RECIEVED 
hd 033240 010204 MOV R2,R4 ; RESTORE 
i399 ; "READ THE CONTENTS OF THE RXFIFO AND COMPARE THEM WITH THE CORRECT DATA 
3 = 
8001 033242 005003 CLR R3 s;CLEAR THE READ DATA COUNTER 
8008 033244 012705 000200 MOV #128, ,R5 sSET THE MAX BMP CODE READ COUNT 
8004 033250 012767 010467 152040 243: MOY #4407.,ERRNBR ;SET THE ERRNBR TO 4407 
8005 0335256 012701 010576 MOV 9EM4407,R1 sSELECT THE MESSAGE , 
8006 ;_” RXFIFO EMPTY TOO SOON, DMA FAILED 
94d sTEST ABANDONED” 
8009 033262 017702 146714 MOV ARBUFA,R2 sREAD THE CHARACTER FROM THE FIFO 
8010 0338266 100067 BPL 30$ ‘BRANCH TO REPORT ERROR IF FIFO EMPTY TOO SOON, 
8011 SAF TER FIRST RESTORING THE CONTENTS OF MEMORY, 
8012 033270 012700 170301 MOV #170301,R0 ;SET UP BIT MASK OF A BMP CODE 
8013 033274 040200 BIC R2,RO ‘TRY TO CLEAR THE BMP CODE MASK 
8014 083576 001011 BNE 283 sBRANCH IF NOT A BMP ¢ 


8015 033300 004767 171254 JSR PC, SAVBMP sSAVE THE BMP CODE ON THE QUEVE 


L1i6 


033522 
2 
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8017 033304 005267 152006 INC ERRNBR 3SET THE ERRNBR TO 4408 

6016 033310 012701 010660 MOV 9EM4408 ,R1 sSELECT THE MESSAGE, 

8019 ;_" TOO MANY BMP CODES FOUND IN THE RXF IFO, 

rt ; TEST ABANDONED” 

8022 033314 005305 DEC RS sDEC THE MAX BMP CODE READ COUNT 

6023 033316 001453 BEG 30$ :GO_ REPORT ERROR IF TOO MANY BMP CODES FOUND , 

8024 sAFTER FIRST RESTORING THE CONTENTS OF MEMORY . 

Goaa 033320 000753 BR 24$ sDON’T COUNT THE BMP CODE AS A VALID CHARACTER 

8027 033322 012767 010471 151766 283: MOV #4409..ERRNBR ;SET THE ERRNBR TO 4409 

8026 033330 010201 MOV R2,R1 sSAVE THE CHARACTER FROM THE FIFO 

6029 0333352 012702 010723 MOV 6EM4409 ,R2 sSELECT THE MESSAGE , 

8030 ; " BAD BIT BETWEEN BITS 0 AND * 

60351 033336 012767 015444 151756 MOV 9ER9101,ERRBLK ;SELECT THE ERROR ROUTINE. 

6052 033344 012767 177777 000332 MOV #-1,SUCSS sINDICATE ‘BAD BITS' FAILURE 

6053 033352 122401 CMPB =(R4)+,R1 sCOMPARE CHAR FROM FIFO WITH THE CORRECT DATA, 

80 3354 10 BNE 30$ sBRANCH IF INCORRECT AND RESTORE MEM CONT'S, 

8035 033356 000322 CLR sucss sINOICATE NON TEST SPECIFIC FAILURE E.G. TIME -OUTS 

6036 0355362 2 INC R3 sCOUNT THIS CHARACTER. 

8037 033364 022703 000020 CMP #16.,R3 sHAVE WE RECIEVED ALL THE CHARACTERS ? 

6038 033370 001327 BNE 24s sLOOP UNTIL ALL CHARACTERS (NON-BMP) ARE READ, 

8039 033372 7 000274 DEC 70$ sDECREMENT THE LOOP COUNT 

8040 033376 001420 BEQ 29% sBRANCH IF BOTH DMA'S ARE COMPLETED 

8041 033400 012704 005154 MOV #SDP 2B ,R4 sSET UP THE SECOND DATA PATTERN 

saat 053404 016705 146612 MOV DMTSTA,RS sSET UP THE OTHER DMA TEST ADDRESS 

6044 033410 012767 010472 151700 MOV #4410.,ERRNBR ;SET ERRNBR TO 4410 

8045 033416 012701 010760 MOV 9€M4410,R1 sSELECT THE MESSAGE , 

8046 s_" RXFIFO FAILED TO PURGE, TEST ABANDONED ° 

++ of 033422 012767 014032 151672 MOV @EROSOS,ERRBLK ;SELECT THE ERROR ROUTINE 

8049 033430 004767 167214 JSR PC, PUFIFO sPURGE THE RXFIFO 

8050 033434 103004 BCC 30% sEXIT WITH ERROR IF FIFO WOULD NOT PURGE : 

8051 sAFTER FIRST RESTORING THE CONTENTS OF MEMORY. 

ooat 033436 000615 BR 18% sOTHERWISE REPEAT, 

8054 033440 012767 000001 000236 293; MOV #1,SUCSS sINDICATE THAT WE HAVE BEEN ABLE TO TEST, 

sone sSOME OF THE BITS. 

3° 

8057 s RESTORE THE ORIGINAL DATA IN THE MEMORY 

ss ; 

8060 033446 016767 146550 000224 30%; MOV DMTSTA,OUMY sSTART WITH THE HIGHER OF THE PAIR OF DMTSTA 

8061 033454 016767 000222 146540 MOV ODTSTA,DMTSTA  ; 

8062 033462 012700 003602 MOV #BUF BAS .RO sPOINT AT THE START OF THE SAVED DATA AREA 

8063 033466 012705 i MOV #1,R5 sSELECT WRITE TO (OMTSTA) 

8064 033472 012703 MOV #16. ,R3 sPASS NUMBER OF BYTES TO BE WRITTEN 

8065 033476 767 164066 JSR » OMRW sRESTORE THE DATA 

8066 033502 005767 146546 TST TP4FLG sGO REPORT ERROR IF A TRAP OCCURED 

8067 033506 001012 BNE 31% ‘ 

8068 033510 016767 000164 146504 MOV DUMY ,OMTSTA sNOW RESTORE THE DATA FROM THE LOWER 

8069 sOF THE PAIR OF TEST ADDRESSES, 

8070 033516 012700 202 MOV #BiF MID ,RO sPOINT AT THE START OF THE SAVED DATA AREA 

8071 004767 164042 JSR PC ,OMRW sRESTORE THE DATA 
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8073 033526 005767 146522 TST TP4FLG :GO REPORT ANY ERRORS IF A NO TRAP 

po dy 033532 001411 BEG 32$ ; OCCURED DURING THE RESTORE. 

8076 033534 012767 010473 151554 31%: MOV #4411. ,ERRNBR 3SET THE ERROR NUMBER TO 4411 

8077 033542 012701 011007 MOV 9E€M4411,R1 sSELECT THE MESSAGE , 

8078 ; " HOST FAILURE. WRITE FAILURE TO AN ADOR 

8079 ;WHICH HAD PREVIOUSLY BEEN SUCCESSFULLY 

8060 ;WRITTEN TO. * 

6061 033546 012767 014032 151546 MOV #EROSOS,ERRBLK ;SELECT THE ERROR ROUTINE 

rey 033554 000433 BR 34$ ;sREPORT THE ERROR 

3;* 

8084 3 HAS THE TEST BEEN SUCCESSFUL, PRINT THE BITS TESTED IF IT HAS, 

8085 3; REPORT THE ERRORS OTHERWISE. 

8087 wi 

6088 033556 005767 000122 32$: TST sucss ;IF THE ERROR IS NON TEST SPECIFIC THEN 

6089 033562 001430 BEQ 345 sBRANCHi TO REPORT ERRORS 

8090 033564 016701 000106 MOV BITSTO,R1 sLOAD THE NUMBER OF BITS TESTED 

6091 033570 005301 DEC Ri sDEC TO GIVE THE BIT POSITION OF THE MSB TESTED, 

8092 033572 022767 000001 000104 CMP #1,SuUCSsSs ;IF THE BITS TESTED ARE BAD THEN 

6093 033600 001021 BNE 34$ ;BRANCH AND REPORT ERRORS. 

8094 3 * 

Sees ; OTHERWISE DETERMINE IF PRINTING OF THE SUCCESSFULLY TESTED BITS WAS REQUESTED. 

g- 

68097 933602 032767 000040 146352 BIT #BITOS,OPTION ; PRINT THE BITS TESTED IF THE SOF TWARE 

8096 033610 001416 BEQ 60$ ;OPTION HAS REQUESTED IT 

8099 033612 010102 MOV R1,R2 sCALCULATE THE NUMBER OF BITS WHICH HAVE 

8100 033614 005202 INC Re ; BEEN TESTED SUCCESSFULLY. 

8101 033616 PRINTB #€F4401,R1,R2 sPRINT THE NUMBER OF BITS TESTED MESSSAGE. 
033616 010246 MOV R2,-(SP) 
033620 010146 MOV R1,-CSP 
033622 012746 005631 MOV MEF 4401, -( SP) 
0336 012746 MOV 3,- 
033632 010600 MOV , 

5634 104414 TRAP CSPNTB 
033636 062706 000010 ADD #10,S°P 
te | 033642 000401 BR 60$ sEXIT THE TEST 

8104 033644 34%; ERROR ; REPORT ERRORS 
033644 104460 TRAP CsSERROR 

8105 033646 605; SETPRI #PRIOS sENABLE THE CLOCK 
033646 012700 000240 MOV #PRIOS,RO 
033652 104441 TRAP CsSPRI 

8106 033654 016767 146376 144122 MOV TP4VEC,4 sRESTORE THE NORMAL 004 TRAP VECTOR 

ston 033662 005067 146332 CLR CTRLCF s INDICATE THAT WE ARE NOT WITHIN A TEST 

8109 033666 EXIT TST 
033666 104432 TRAP CSEXIT 

site 033670 000016 »WORD L10050-, 

3 ¢ 
arts 5 *#¢40006004664060600060 LOCAL VARIBLE AREA SEAEABREAAEDADDREDAEAOREDASEEEDES 
1 ;- 

8113 033672 000000 70$: -WORD O sCOUNTER FOR THE NUMBER OF DMA’S COMPLETED 

8114 033674 000000 80$: -WORD 0 sSAVE AREA FOR THE ACTIVE LINE NUMBER 

8115 033676 000000 BITSTD: .WORD oO sNUMBER OF BITS TESTED 

8116 033700 000000 DUMY : -WORDB Oo sDUMMY VARIABLE 

8117 033702 000000 ODTSTA: .WORD oO sHIGHER OF THE PAIR OF COMPLEMENTARY ADDR, 


Bi 
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6118 033704 000000 SUCSS: .WORD 0 sSUCCESS INDICATOR, -1 - ERROR DUE TO BAD BITS 

6119 ’ 1 - SUCCESSFUL TEST 

Hort ' 0 - OTHER ERRORS 

6 

8122 a END 090006666666 6666666666666606666666466666 

6125 t- 

8124 033706 ENOTST 

3 L10030: 


033706 
033706 104401 TRAP CsETSsT 


PiMsdhnE Es ]S7 Pants 


033710 
033710 


033710 
033716 


48 033720 
8149 033724 
033724 
033730 
ores 033732 


8169 034006 
034006 


034012 
8170 034014 
034014 


8171 
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146260 


000372 
000240 
177777 
000001 
014071 
011054 


146504 
146224 


163332 


000340 


000300 
027426 
146140 
000003 


000010 


6 | 


















. SBTTL T - FRMERR - 
a PPOSESOSSOSESOSESSEEESSEEEEEEEEDSOODOREAOEODESESEEEDRADRDAEEEEDEEEDECEEEDEDEODES 
: . - FRAMING ERROR GENERATION TEST - 
: 
36 Gre est FS USED TO VERIFY THE FRAMING ERROR DETECTION CAPABILITIES 
3¢ ° 
32 WHEN IN STAGGARED LOOPBACK MODE. CHARACTERS ARE TRANSMITTED FROM 
:¢ ONE GROUP OF LINES AT 8 BITS/CHAR. ee RECEIVED BY THE OTHER GROUP 
36 AT 5 BITS/CHAR.THIS WILL FOR EACH CHARACTE 
1s THIS TEST WILL ONL LOOPBACK MODE IS SELECTED. 
34 THE SPECIAL STAGGARED L ACK BERG CONNECTOR MUST BE FITTED. 
34 THE ACTIVE LINES BIT MASK IS USED TO INDICATE WHICH LINES HAVE BEEN 
34 REMOVED FROM FURTHER TESTING. 
32 
i ~SBSOBEOOSE4OOESE4EOOSOOO606006800000600006600060660000600600066606006006000000666 
ST 
TS:: 
3° 
s EXECUTE THIS TEST IN STAGGARED LOOPBACK MODE ONLY. 
| ee 
CMPB LOPBCK,¢2 sCHECK MODE SELECTED. 
BEQ . +6 sAVOIO EXITING THE TEST IF STAGGERED LOOPBACK 
sMODE IS SELECTED. 
JP 60% 3s EXIT THE TEST. 
SETPRI ¢@PRIOS sALLOW LTC INTERRUPTS. 
MOV @PRIOS5 .RO 
TRAP CSSPRI 
MOV @-1,CTRLCF sINDICATE THAT WE ARE IN A TEST. 
TUM =< TUM «+ 1 INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM, TSTNUM (62 
MOV =s- @1 ,ERRTYP 
moy as ERROR TABLE. 
ROY ° SS IN ERROR TABLE. 
CLR THE “REPORT SUMMARY” FLAGS. 
CLR FERROR sCLEAR THE “AT LEAST ONE ERROR” INDICATOR. 
3° 
s RESET THE OUT TO A KNOWN STATE, REMOVE STATUS CODES FROM THE FIFO. 
:; CLEAR TX AND RX INTERRUPT BITS. 
s THIS SUBROUTINE REPORTS ERROR >>>>> 6201 <<<<<. 
i> 
JSR PC .CLNRST sRESET THE DUT. 
Bcc 60% sABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
3¢ 
s OISABLE ALL INTERRUPTS. 
s SET UP DMA TX AND RX INTERRUPT SERVICE ROUTINES. 
3- 
SETPRI @PRIO7 sOISABLE ALL INTERRUPTS. 
MOV @PRIO7 RO 
TRAP CSSPRI 
SETVEC TXVECA, OTXDOMA, @PRIOG sSELECT OMA TX INT SERVICE RIN. 
MOV @PRIOG . -( SP) 
MOV eT »-CSP) 
MOV TXVECA, -(SP) 
MOV @3,-CSP) 
TRAP CssSvec 
ADD #10,SP 
SETPRI @PRIO4 sALLOW INTERRUPTS. 
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151156 
166566 


014075 
Be Sew 


162546 
146030 
000100 


163646 
151076 


151142 


145756 


Take = ES SART FO 


4¢ 
s CLEAR TX, RX, AND DMA_START ERROR FLAGS. 
i- 


CLR TXDONF sCLEAR TX DONE FLAGS FOR ALL LINES. 
CLR RXDONF sCLEAR RX DONE FLAGS FOR ALL LINES. 
CLR TXINTF sCLEAR TX ERROR FLAGS FOR ALL LINES. 


s¢ 
s SET UP ERROR TABLE AND DATA PATTERN TABLE 


: THE NUMERICAL VALUE OF THE CHARACTER INDICATES THE NUMBER OF THE LINE 
s THAT TRANSMITTED IT. 
- 
#ERCNTB RO sPASS THE oe OF THE TABLE TO BE CLEARED. 
JSR PC ,CLR16W sCLEAR THE RX ERROR COUNTERS TABLE 
CLR BUF BAS sSET SINGLE CHAR DATA TO BE A NULL. 


; INITIALISE DMA PARAMETERS IN THE CONTROL BLOCK. 
SSION ON LINE GROUP 1 AT 8 BITS/CHAR.1 STOP BITS.000 PARITY. 
| RECEPTION ON LINE GROUP 2 AT S BITS UGHAR t St0s po aaaT oe 


as sPASS LPR PARAMETER FOR & BITS/CHAR. 
i vine _PARAMETER FOR 5 BITS/CHAR. 











ATTERN. 
GROUP OF LINES THAT ARE TO Tx. 
T UP DUT FOR TRANSMISSION AND RECEPTION. 


CHARACTERS. THIS ROUTINE REPORTS ERRORS 
FROM >>>>> 6202 THRU q<eeC, 
ION AND RECEPTION AT 9600 BAUD. 
ANY ERRORS FOUND, IE. FRAMING ERROR BIT CLEAR OR PARITY ERROR SET. 
sSET THE ERROR REPORT NUMBER TO 6202. 
sCLEAN OUT THE FIFO. 
sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
sSET THE NUMBER TO 
rx DATA PATTERN ON eer ere D ACTIVE LINES. 
sPASS FRAMING ERROR TEST 
g¢ 
s THIS SUBROUTINE REPORTS ERROR NUMBER >>>>> 6205 <<<<<. 
t- 


JSR PC .CKFRPR | sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 

















TST FERROR sHAS AN ERROR BEEN DETECTED? 
BEQ es sBRANCH IF ERROR 

BIT @6ITO6.OPTION jHAS EXTENDED ERROR REPORTING BEEN ENBL’D? 
BEQ 54% HASN'T AND EXIT THE TEST. THE 


sBRANCH IF IT 
iTEST FAILURE MESSAGE HAS BEEN PRINTED. 
; " REVERSE TRANSMISSION/RECEPTION ROLES ON ALL ACTIVE LINES, AND REPEAT TEST. 


$= 

2s: COM R4 sREVERSE ROLES FOR TRANSMISSION AND RECEPTION. 
JSR PC .FRPSUP sSET UP DUT FOR yoy AND RECEPTION. 
INC ERRNBR sSET ERROR NUMBER 


wr Ad ETS! PART4 


034272 
034276 


et 
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166506 
014101 
171264 
100000 


162466 
145750 
000100 


151024 


171322 
171744 


000340 
145654 


145076 


151062 


145676 


s* 
s THIS ROUTNE REPORTS ERRORS WITH NUMBERS >>>>> 6206 THRU 6208 <<<<<. 
ge 


JSR PC ,PUFIFR sCLEAN OUT THE FIFO. 

BCC 60% sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
MOV #6209. , sSET ERROR NUMBER TO 

JSR PC, TXFRPR 1TX DATA PATTERN ON SELECTED ACTIVE LINES. 
MOV #100000 ,RS sPASS FRAMING ERROR TEST FLAG. 


Bd 
s THIS SUBROUTINE REPORTS ERRORS >>>>> 6209 <<<<<, 
i- 


JSR PC ,CKFRPR sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 
TST FERROR sHAS AN ERROR BEEN DETECTED? 
Q 4% sBRANCH IF NO ERROR 
BIT #6ITO6 ,OPTION SHAS EXTENDED ERROR REPORTING BEEN ENBL’D? 
Q 54% sBRANCH IF IT HASN'T AND EXIT THE TEST. THE 
iTEST FAILURE MESSAGE HAS BEEN PRINTED. 
4%: INC ERRNBR sSET ERROR NUMBER TO 6210. 


j OISABLE INTERRUPTS. 
: CLEAR THE INTERRUPT VECTORS. 
UPDATE THE ACTIVE LINES BIT MAP TO REFLECT LINES REMOVED FROM TESTING. 
SUBROUTINE REPORT 


3 
$ THIS TS ERRORS >>>>> 6210 THRU 6212 <<«<<<, 
i> 
JSR PC, TXIEO sOISABLE ALL TX INTERRUPTS. 
JSR PC, TXRREP sREPORT FINAL ERRORS FROM TX/RX. 
543s: SETPRI @PRIO7T sOISABLE ALL INTERRUPTS. 
@PRIO7 RO 
TRAP CsSPRI 
CLRVEC TXVECA sRETURN TX INT VECTOR TO UNUSED POOL. 
MOV TXVECA,RO 
TRAP CsCvECc 
60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 
L10031: 
TRAP CsETST 


SEQ 211 


DHU-11 FUNC TST PART4 
HARDWARE TEST 


6265 


004767 
103165 


Fi 
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- PARERR - 


145644 


177777 


000001 
014235 
011115 
146070 


145610 


162716 


000340 


000300 
027426 
145524 
000003 





SEQ 212 
-SBTTL HARDWARE TEST - PARERR - 
3° #POSESESESSSSSESSSESESSASEEEASASSESOESADAELESEAEAESEDEDREEEODDEEDDEEEDEEESADSLA 
3* - PARITY ERROR GENERATION TEST - 
a 
° THIS TEST IS USED TO VERIFY THE PARITY ERROR DETECTION AND REPORT 
3% CAPABILITIES OF THE DUT. 
3* WHEN STAGGARED LOOPBACK MODE IS SELECTED, DATA IS TRANSMITTED 
34 ON ALL ACTIVE LINES IN LINE GROUP 1 WITH ODD PARITY SELECTED. 
14 S_ IN GROUP 2 WITH EVEN PARITY SELECTED. 
3% A PARITY EACH TER RECEIVED. 
34 THE PARITY eg IS THEN REVERSED ON THE LINES IN EACH GROUP 
:* AND THE TEST IS ATED. 
,4 THIS TEST WILL ONLY EXECUTE IF THE STAGGARED LOOPBACK MODE IS SELECTED. 
34 THE SPECIAL STAGGARED LOOPBACK BERG CONNECTOR MUST BE FITTED. 
2 
- ~ 99860660606660600608006060608066064660650660666646600606460060000046040066000400006 
ST 
T6:: 
& 
EXECUTE THIS TEST IN STAGGARED LOOPBACK MODE ONLY. 
ge 
CMPB =e LOPBCK, @2 sCHECK MODE SELECTED. 
BEQ . +6 ; AVOID EXITING THE TEST IF STAGGERED LOOPBACK 
sMODE IS SELECTED. 
JMP 60% ; EXIT THE TEST. 
SETPRI @PRIOS sALLOW LTC INTERRUPTS. 
MOV @PRIOS RO 
TRAP CSSPRI 
@-1, CTRLCF sINDICATE THAT WE ARE IN A TEST. 
TNUM == TNUM + 1 T ASSEMBLY TIME “sr Peace 
#1,ERRT IN ERROR TABLE. 
IN TABLE. 
ADORESS IN ERROR TABLE. 
ZE THE “REPORT ERROR SUMMARY” FLAGS. 
CLR FERROR sCLEAR THE “AT LEAST ONE ERROR” INDICATOR 
3¢ 
3 RESET = OUT TO A_ KNOWN STATE, REMOVE STATUS CODES FROM THE FIFO. 
; CLEAR TX AND RX INTERRUPT ENABLE E BITS. 
s THIS SUBROUTINE REPORTS ERROR >>>>> 6301 <<<<<., 
g = 
JSR een sRESET THE OUT. 
BCC 603 sABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
3° 
s OISABLE ALL INTERRUPTS. 
s SET UP OMA TX AND RX INTERRUPT SERVICE ROUTINES. 
SETPRI 4@PRIO7 sOISABLE ALL INTERRUPTS. 
@PRIO7.RO 
TRAP cs I 
SETVEC TXVECA, @TXDMA, OPRIOG sSELECT OMA TX INT SERVICE RTN. 
MOV @PRIO6, -C SF) 
MOV oT »- (SP) 
MOV @3,-CSP) 
TRAP Cssvec 


Bthbhne WEST Pane 


034610 


004767 
103111 
012767 
004767 
005005 


004767 


005767 
001404 
032767 
001457 


005267 


G | 
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000010 


163316 


166162 


014241 
164030 


162144 
145426 
000100 


150502 


150536 


145354 


SETPRI @PRIO4 


3* 
; CLEAR TX/RX FLAGS. 
Be 


CLR —«TXDONF 
CLR _ RXDONF 
CLR ‘TXINTF 
3¢ 
; SET UP ERROR COUNTER TABLE. 
: MOV  %€RCNTB.RO 
JSR PC, CLR16W 


ADD #10,SP 
sALLOW INTERRUPTS. 

MOV #PRIO4 ,RO 

TRAP C$SPRI 


sCLEAR TX DONE FLAGS FOR ALL LINES. 
sCLEAR RX DONE FLAGS FOR ALL LINES. 
;CLEAR TX ERROR FLAGS FOR ALL LINES. 


sPASS THE ADDRESS OF THE TABLE TO BE CLEARED. 
s;CLEAR THE RX ERROR COUNTERS TABLE. 


; INITIALISE DMA PARAMETERS IN THE CONTROL BLOCK. 


MOV #156470,RO0 
MOV #156570,R1 
JSR PC .GETTIM 
MOV @SDP2B ,.R2 
MOV #16. ,R5 
MOV LGRP1M,R4 
JSR PC ,FRPSUP 


TRANSMISSION ON LINE 
RECEPTION ON LINES IN GROUP 


REPORT ANY ERRORS FOUND, IE. 


3;¢ 
; THIS ROUTINE REPORTS ERRORS 
; - 


JSR PC ,PUFIFR 
BCC 60$ 
MOV 06305. ,ERRNBR 
JSR PC, INIDMA 
CLR RS 
3 * 
; THIS SUBROUTINE REPORTS ERROR 
3:7 
JSR PC .CKFRPR 
TST FERROR 
BEQ 2s 
BIT @BITO6 ,OP TION 
BEQ 545 
2s: INC ERRNBR 


sPASS LPR PARAMETER WITH ODD PARITY. 

sPASS LPR PARAMETER WITH EVEN PARITY. 

s;GET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
sPASS START ADDRESS OF DATA PATTERN. 

sPASS LENGTH OF DATA PATTERN. 

sPASS BIT MAP OF LINES TO BE SET WITH ODD PAR. 
;SET UP DUT FOR TRANSMISSION AND RECEPTION. 


PURGE THE FIFO OF ANY UN-WANTED CHARACTERS. 
PERFORM TRANSMISSION a ge Ah OF THE 16 BYTE DATA PATTERN AT 9600 BAUD. 


8 BITS/CHAR, 1 STOP BITS, ODD PARITY. 


2 AT 8 BITS/CHAR, 1 STOP, EVEN PARITY. 


REMOVE CHARACTERS FROM THE FIFO AND LOOK FOR THE PARITY ERROR BIT BEING SET. 


FRAMMING ERROR BIT SET OR PARITY ERROR CLEAR. 


WITH NUMBERS »>>>>> 6302 THRU 6304 <<cc<, 


;sCLEAN OUT THE FIFO. 

sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
;SET ERROR NUMBER TO 6305 

;TX DATA PATTERN ON ALL ACTIVE LINES. 
sPASS PARITY ERROR TEST FLAG. 


NUMBER >>>>> 6305 <««cc, 

sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 
sHAS AN ERROR BEEN FOUND ? 

;BRANCH TO CONTINUE IF IT HASN'T. 

;HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
sEXIT THE TEST IF IT HASN’T. THE TEST FAILURE 
sMESSAGE HAS ALREADY BEEN REPORTED. 


;SET ERROR NUMBER TO 6306. 


; THIS SUBROUTINE REPORTS ERPORS WITH NUMBERS >>>>> 6306 THRU 6309 <<««« 


SEQ 215 


HAROWARE “YE ST 


034614 


034702 


034706 
034712 
034716 
034720 
034726 


034730 


034736 


034760 


034762 


PART4 


004767 
005767 
001404 
032767 
001457 


012767 


001404 
032767 
001407 


012767 


004767 


004 767 


012700 
104441 


016700 
1044 36 


012767 


rH | 
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171426 
145400 


000100 


014246 
145632 
145630 
145404 


163174 


166040 


014250 
163706 


162024 
145306 


000100 


014255 


170656 


171300 


000340 


145210 


014261 


145326 


150452 


150414 


145234 


150360 


150326 


JSR PC, TXRREP ;REPORT FINAL ERRORS FROM TX/Rx, 
Ts! FERROR sHAS AN ERROR SEEN FOUND ? 
BEG 4$ sBRANCH TO CONTINUE IF IT HASN'T. 
BIT BI TO6 , OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEG 60$ sEXIT THE TEST IF IT HASN’T. THE TEST FAILURE 
sMESSAGE HAS ALREADY BEEN REPORTED. 
4$: MOV #6310. ,ERRNBR ;SET ERROR NUMBER TO 6310. 
CLR TXDONF sCLEAR TX DONE FLAGS FOR ALL LINES. 
CLR RXDONF ;CLEAR RX DONE FLAGS FOR ALL LINES. 
CLR TXINTF ;CLEAR TX DMA HANDOVER ERROR FLAGS. 


; REVERSE TRANSMISSION/RECEPTION ROLES ON ALL ACTIVE LINES, AND REPEAT TEST, 


COM R4 sREVERSE ROLES FOR TRANSMISSION AND RECEPTION. 
JSR PC,FRPSUP ;SET UP DUT FOR TRANSMISSION AND RECEPTION. 


THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 6310 THRU 6311 CKeeC, 


JSR PC,PUFIFR ;CLEAN OUT THE FIFO. 

BCC 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
MOV #6312. ,ERRNBR ;SET ERROR NUMBER TO 6312. 

JSR PC, INIOMA 3TX DATA PATTERN ON SELECTED ACTIVE LINES. 


3 * 
; THIS SUBROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 6312 THRU 6316 KKEKC, 


JSR PC ,CKFRPR sREAD CHARACTERS, REPORT ANY ERRORS FOUND. 
TST FERROR sHAS AN ERROR BEEN FOUND ? 
BEQ 6$ sBRANCH TO CONTINUE IF IT HASN‘T. 
BIT @BITO6,OPTION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEQ 54$ sEXIT THE TEST IF IT HASN'T. THE TEST FAILURE 
sMESSAGE HAS ALREADY BEEN REPORTED. 
6$: MOV 06317.,ERRNBR ;SET ERROR NUMBER TO 6317. 


3 DISABLE INTERRUPTS. 

; CLEAR THE INTERRUPT VECTORS. 

: UPDATE THE ACTIVE LINES BIT MAP TO REFLECT LINES REMOVED FROM TESTING. 
JSR PC, TXIEO sDISABLE ALL TX INTERRUPTS. 


: THIS SUBROUTINE REPORTS ERRORS >>>>> 6317 THRU 6320 <<ccc. 


JSR PC, TXRREP sREPORT FINAL ERRORS FROM TX/RX. 
545: SETPRI 4@PRIO7 sOISABLE ALL INTERRUPTS. 
MOV #PRIO7 RO 
TRAP CSSPRI 
CLRVEC TXVECA sRETURN TX INT VECTOR TO UNUSED PCOL. 
MOV TXVECA,RO 
TRAP CSCveEc 


; THIS SUBROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 6321 <cccc. 
MOV 96321.,ERRNBR  ;SET ERROR NUMBER TO 6321. 


SEQ 214 


DHU 1) FUNC TST 
HARDWARE TEST 


8417 034770 
8418 
8419 034774 
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004767 167054 JSR PC,REPSMR 

005067 145220 60$: CLR CTRLCF 
ENDTST 

104401 


i] 


;REPORT FRROR SUMMARIES IF CALLED FOR. 
; INDICATE THAT WE ARE NOT WITHIN A TEST. 


L100Se: 


TRAP 


CSETST 


“EQ 21% 


DHU-11 FUNC IST PART4 
HARDWARE TEST 


8458 


8459 


035046 
035052 


035056 
035062 
035064 


035070 


012700 
104441 


012746 
012746 
016746 
012746 
104437 
062706 


012746 
012746 
016746 
012746 
104437 
062706 


012700 
104441 


MACRO M1200 15 
- DMA - 


000240 


000007 
177777 
000001 
021615 
012535 
145426 
145146 


162254 
000664 


000340 


000300 
027426 
145056 
000003 


000010 
000300 
027216 
145026 
000003 
000010 


000200 


145242 
145174 
150262 
150256 
150252 
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-SBTTL HARDWARE TEST 


3; **¢ SESESEEEEEEEEEEDESEEEEEAEEEEEEEEEEEEAEEEEEEEHAREEEEREEEEERE EEE REAR EAS 


34 


J | 


SEQ 216 


- DMA - 


DMA MODE TEST - 


34 THIS TEST VERIFIES THAT THE DEVICE UNDER TEST (DUT) WILL PERFORM 
34 TRANSMISSION AND RECEPTION CORRECTLY USING THE DMA MODE TRANSMISSION. 


:* THE TEST IS PERFORMED AT ALL 
; CHARACTER, 


1 STOP BIT, AND WITH PARITY CHECKING 


BAUDRATES CEXCEPT 50 BAUD), 8 BITS PER 
(BOTH ODD AND EVEN). 


A HIGH SPEED TEST IS ALSO PERFORMED AT THE HIGHEST 3 BAUDRATES AT 


BOTH S AND & BITS PER CHARACTER, 1 STOP BIT, 


AND NO PARITY CHECKING. 
LOOPBACK WHICH WAS SPECIFIED 


IN THE DUT HARDWARE P-TABILLE ON ALL ACTIVE LINES. 


3° 

34 

34 THIS TEST IS PERFORMED WITH THE TYPE OF 
;* 

;* 


-- SEES EEEEREREEALEEEEEEEEEEREEEEEEEAEEEEEEEREEEEAREEEEREDEEEEAEEREEEAEEAEDE 


BGNTST 
SETPRI 


JSR 
BCS 
JMP 


#PRIOS 


#-1,CTRLCF 
#1,ERRTYP 
#9101. ,ERRNBR 
#€M9101,ERRMSG 


ERSMRF 
FERROR 


RESET THE DUT TC A KNOWN 
CLEAR TX AND RX 


60$ 


INTERRUPT ENABLE BITS IN THE 
THIS SUBROUTINE REPORTS ERROR >>>>> 9101 <<«ccs, 


PC,CLNRST 
2$ 


sALLOW LTC INTERRUPTS. 
MOV #PRIOS,RO 
TRAP CSSPRI 
s INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
;SET UP THE TEST NUMBER. (91) 
s INDICATE THAT WE ARE IN A TEST. 
;SET ERROR TYPE AS FATAL IN ERROR TABLE. 
sSET THE FIRST ERROR NUMBER IN ERROR TABLE. 
;SET ERROR MESSAGE ADDRESS IN ERRTBL. 
s INITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
sCLEAR THE "AT LEAST ONE ERROR” INDICATOR. 


STATE, REMOVE THE aS ode CODES FROM THE FIFO. 


sRESET THE DHU-11, REPORT ANY ERRORS FOUND. 
3SKIP AROUND TEST EXIT IF NO FATAL ERROR FOUND. 
sRESET FAILURE, ABORT THIS TEST. 


; SET UP FOR TRANSMIT INTERRUPTS. 


;” 
2$: SETPRI 


SETVEC 


SETVEC RXVECA, ORXCHRS, OPRIO6 


#PRIO?7 


TXVECA, #TXDMA, #PRIO6 


SETPRI #PRIO4 


sDISABLE ALL INTERRUPTS. 
MOV #PRIO7,RO 


TRAP CSSPRI 
sSELECT DMA TX INT SERVICE RIN. 
@TXDMA, -C SP) 
TXVECA, -C SP) 
SP ) 


AD 
sSELECT RX INT SERVICE RIN. 
Vv #PRIO6, -( SP) 
ORXCHRS, -( SP) 
#3, -(SP) 
CsSvec 
#10,SP 


#PRIO4 ,RO 
CS$SPRI 


;ALLOW INTERRUPTS, 


HAROUARE NEST 


035226 


035234 
035240 
035242 


035246 
035252 
035256 


035312 


035320 
035324 
035330 
035332 
035340 


PART4 


012767 


004767 
103402 
000167 


004767 


004767 
012767 


103302 
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021616 


165472 
000452 
165662 


163336 
021621 


165700 
144730 


000100 
000406 
021627 


170722 
144674 


000100 


000100 
177677 
010400 


145004 
150062 


150032 


144656 


147776 


144622 


; TRANSMIT AND RECEIVE SHORT DATA PATTERN AT ALL BAUDRATES, 
; WITH 8 BITS PER CHARACTER, 1 STOP BIT, AND BOTH TYPES OF PARTTY. 
; BOTH LINE GROUPS (. GPRS) TX AND RX WITH THE SAME PARAMETERS. 


MOV #ERCNTB,RO 
JSR PC ,CiR16w sCLEAR THE RX ERROR COUNTERS TABLE. 

MOV #10470,R1 ;SET UP LPR CONTENTS FOR TX/RX AT 75 BAUD. 

4$: JSR PC ,GETTIM ;GET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 

MOV @SDP2B ,R2 ;SET UP THE START ADR OF THE DATA PATTERN. 

MOV @SDP2E -SDP2B,R3 ;SET UP THE DATA PATTERN LENGTH. 

MOV #1,R4 ;SPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
JSR PC, VANSUP ;SET UP "VANILLA FLAVORED” TX/Rx. 

MOV #177400, IBM sFORM BIT MAP OF UNUSED TX/RX BITS. 

MOV #9102. ,ERRNBR ;SET THE ERROR REPORT NUMBER TO 9102. 


; THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9102 THRU 9106 <<ccc. 


“i PC,PUFIFR sPURGE THE DUT RECEIVE CHARACTER FIFO. 
BCS . +6 

JMP 50$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 

JSR PC, INIDMA ;SEND THE FIRST BATCH OF DATA PATTERNS. 
MOV #9105. ,ERRNBR ;SET ERROR NUMBER TO 9105. 


+ 
THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9105 THRU 9110 <<ccc. 


JSR PC,RDCHRS ;READ AND VERIFY THE RX CHARACTERS. 
TST  FERROR sHAS AN ERROR BEEN DETECTED ? 
BEQ S$ ;NO, THEN BRANCH. 
oy @81T06 ,OP TION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
.* 
JMP 50$ ;NO, THEN EXIT THE TEST. 
S$: MOV 9111.,ERRNBR ;SET ERROR NUMBER TO 9111. 
3? 
; THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9111 THRU 9114 <<cc<. 
oo. PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 
TST  FERROR sHAS AN ERROR BEEN DETECTED ? 
BEQ 6$ ;NO. THEN BRANCH. 
BIT  @BITO6,OPTION ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEQ 50$ ;NO, THEN EXIT THE TEST. 
3 * 
; TOGGLE THE PARITY TYPE BIT SPECIFIER IN THE TX/RX SETUP PARAMETERS. 
; SELECT THE NEXT BAUDRATE AND PERFORM THE TEST AGAIN IF NOT DONE. 
(ih 
6$: MOV _— R11, RO ;COMPLEMENT THE PARITY TYPE 
BIC 100.R1 ; BIT IN THE TX/RX LPR SETUP 
COM = RO ; PARAMETER LEAVING THE 
BIC  177677,RO ; OTHER LPR PARAMETER 
BIS _—s- RO, R1 ; BITS UNCHANGED. 
ADD  #10400,.R1 ;SELECT THE NEXT BAUDRATE. 
BCC 4$ LOOP TO TX/RX AGAIN IF NOT PAST LAST BALORATE. 


; PERFORM WIDE OPEN DMA TEST. 


SEQ 217 


Lt 
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HAROWARE NEST> — SEQ 216 
8517 ; TRANSMIT AND RECE{VE 512 BYTE DATA PATTERNS AT ALL COMBINATIONS OF 9.6K, 
8518 ; 19.2K, AND 38.4K BUADRATES AND 5 AND 8 BITS PER CHARACTER. USE 1 STOP BIT 
8519 ; AND NO PARITY GENERATION OR DETECTION. 
8501 a 
8522 ; INITIALIZE THE 512 BYTE PATTERN AND THE VARIOUS DATA PATTERN POINTERS. 
8524 035366 005001 ; CLR Ri ;CLEAR THE DATA BYTE COUNTER. 
8525 035370 012702 003602 MOV @BUFBAS,R2 ;GET THE BASE OF THE DATA PATTERN BUFFER. 
8526 035374 110122 7$: MOVB R1,(R2)> ;WRITE A BYTE OF THE DATA PATTERN. 
8527 035376 105201 INCB Ri ;GET THE NEXT BYTE FOR THE DATA PATTERN. 
8528 035400 001375 BNE 7$ ;LCOP UNTIL FIRST 1/2 OF PATTERN IS DONE. 
8529 035402 105301 8$: DECB RI ;GET THE NEXT BYTE FOR THE DATA PATTERN. 
8530 035404 110122 MOVB R1,(R2)+ ;sWRITE A BYTE OF THE DATA PATTERN. 
8531 035406 105701 TSTIB”) R1 ;CHECK FOR DONE WRITING DATA PATTERN. 
8532 035410 001374 BNE 8$ ;LOOP IF DATA PATTERN IS NOT DONE. 
8°33 035412 110122 10$: MOVB R1,(R2)+ sWRITE A BYTE OF THE 32 BYTE OVERFLOW REGION. 
8534 035414 005201 | INC ;COUNT THIS BYTE. 
8535 035416 020127 000040 CMP R1, 932 ;TEST FOR 32 BYTES WRITTEN. 
8536 035422 001373 BNE 10$ ;LOOP UNTIL 32 BYTES ARE WRITTEN. 
8538 ; PREPARE TO LOOP ON THE 3 DIFFERENT BAUDRATES (9.6K, 19.2K, AND 38.4K). 
8540 035424 012705 005072 ; MOV #OLPRTB,RS ;GET THE BASE ADR OF THE DMA BAUDRATE TABLE. 
1 3+ 
8542 ; SPECIFY THE PROPER BAUDRATE. 
8543 ; SPECIFY 8 BITS PER CHARACTER. 
9 ; PERFORM DMA TRANSMISSION AND RECEPTION OF 512 BYTE DATA PATTERN. 
8546 ete 
8547 ; THE FOLLOWING ROUTINE REPORTS THE ERROR WITH NUMBERS 914 THRU 921. 
6346 ; LPR CHANGE BIT ERROR FLAGS MAY BE SET BY THIS SUBROUTINE. 
- 
8550 035430 012501 12$: MOV (RS5)+,R1 ;SET UP LPR PARAM AT NEXT BAUD, 8 BITS/CHAR. 
8551 035432 004767 163100 JSR PC ,GETTIM ;GET TIME-OUT BASED ON MINIMUM BAUDRATE IN USE. 
8552 035436 012702 003602 MOV BUF BAS ,R2 ;SET UP THE START ADR OF THE DATA PATTERN. 
8553 035442 012703 001000 MOV 512. ,R3 ;SET UP THE DATA PATTERN LENGTH. 
8554 035446 012704 000001 MOV $1,R4 ;SPECIFY TO SEND 1 DATA PATTERN TO EACH LINE. 
8555 035452 004767 171136 JSR PC, VANSUP ;SET UP “VANILLA FLAVORED” TX/Rx. 
8556 035456 012767 177400 144546 MOV 9177400, IBM sFORM BIT MAP OF UNUSED BITS FOR 8 BITS/CHAR. 
8557 035464 012767 021633 147624 MOV #9115.,ERRNBR ;SET ERROR NUMBER TO 9115. 
3° 
8559 ; THIS ROUTINE REPORTS ERROS WITH NUMBERS >>>>> 9115 THRU 9117 «<<<. 
Ween 
8561 035472 004767 165234 JSR PC .PUFIFR sPURGE THE DUT RECEIVE CHARACTER FIFO. 
8562 035476 103126 BCC 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
8565 035500 012767 021636 147610 MOV #9118.,ERRNBR  ;SET ERROR NUMBER TO 9118. 
8565 035506 004767 165422 JSR PC , PURRXB ;PURGE THE RX CHAR BUFFER IN MEMORY. 
8566 035512 004767 163076 JSR PC, INIDMA ;SEND THE FIRST BATCH OF DATA PATTERNS. 
3* 
8568 ; THIS ROUTINE REPORTS THE ERROR WITH NUMBERS >>>>> 9118 THRU 9123 <<«c<. 
a 
8370 035516 004767 165446 JSR PC .RDCHRS ;READ AND VERIFY THE RX CHARACTERS. 
8572 035522 005767 144476 TST FERROR ;HAS AN ERROR BEEN DETECTED ? 
8573 035526 001407 BEQ 14$ ;NO, THEN BRANCH. 


HARDWARE TEST 


035530 


035536 
6 


035540 


035570 


035576 


035712 
035716 


035720 


PARTS 


032767 
001470 


012767 


004767 
005767 
001404 
032767 
001454 


012767 


012767 


004767 
103055 
012767 


004767 
004767 


001417 
012767 


004767 
005767 
001404 
032767 
001403 


020527 
103644 


MI 
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000100 


021644 


170474 
144446 


000100 


021650 


000030 
171006 
177740 


165112 
021654 


165300 
162754 


165324 
144354 


000100 


021662 


170352 
144324 


000100 


005100 


144424 


147550 


144374 


147520 


144416 


147466 


144302 


147426 


144252 


BIT 6B ITO6,OPTION 
BEQ 50$ 
MOV #9124. ,ERRNBR 


sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
;NC, THEN EXIT THE TEST. 


;SET ERROR NUMBER TO 9124. 


3* 
; THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9124 THRU 9127 CeCe, 


sREPORT FINAL ERRORS FROM RX/RX. 

sHAS AN ERROR BEEN DETECTED ? 

;NO, THEN BRANCH. 

sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
THEN EXIT THE TEST. 


ERROR NUMBER TO 9128. 


;NO, 


3SET 


; PERFORM DMA TRANSMISSION AND RECEPTION OF 512 BYTE DATA PATTERN. 


;SET UP CHAR LENGTH PARAM TO 5S BITS/CHAR. 
;SET UP “VANILLA FLAVORED” TX/Rx. 
sFORM BIT MAP OF UNUSED BITS FOR 5 BITS/CHAR. 


;¢ 
; THIS ROUTINE REPORTS THE ERROR WITH NUMBERS >>> 9128 THRU 9131 <<<. 


sPURGE THE DUT RECEIVE CHARACTER FIFO. 
sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
;SET THE ERROR REPORT NUMBER TO 9132. 


sPURGE THE RX CHAR BUFFER IN MEMORY. 
;SEND THE FIRST BATCH OF DATA PATTERNS. 


; THIS ROUTINE REPORTS THE ERROR WITH NUMBERS >>>>> 9132 THRU 9137 <<ccc. 


sREAD AND VERIFY THE RX CHARACTERS. 

;HAS AN ERROR BEEN DETECTED ? 

;NO, THEN BRANCH. 

sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
;NO. THEN EXIT THE TEST. 


;SET ERROR NUMBER TO 9138. 


; THIS ROUTINE REPORTS THE ERROR WITH NUMBERS >>>>> 9138 THRU 9141 <<cc<. 


sREPORT FINAL ERRORS FROM RX/RXxX. 

sHAS AN ERROR BEEN DETECTED ? 

;NO, THEN BRANCH. 

sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
:NO, THEN EXIT THE TEST. 


;COMPARE OMA BAUDRATE TABLE PTR WITH TABLE END. 


14$: JSR PC, TXRREP 
TST  FERROR 
BEQ 16$ 
BIT §§ @BITO6,OPTION 
BEQ 50$ 
16$: MOV #9128. ERRNBR 
; SPECIFY S BITS PER CHARACTER. 
"BIC @30,. RI 
JSR PC, VANSUP 
MOV #177740, IBM 
" JSR PC, PUFIFR 
BCC 60$ 
MOV 99132. .ERRNBR 
JSR PC, PURRXB 
JSR PC; INIDMA 
"SR PC .RDCHRS 
TST FERROR 
BEQ 18$ 
BIT BITO6,OPTION 
BEQ S0$ 
18$: MOV  #9138..ERRNBR 
..* 
JSR PC, TXRREP 
TST  FERROR 
BEQ 20$ 
BIT  @BITO6, OPTION 
BEG 503 
208: CMP —s-_ RS, PDLPRTE 
BLO 12$ 


;LOOP IF NOT ALL BAUDRATES DONE YET. 


3; * 
; ALL DONE. HAVE EITHER RUN OUT OF ACTIVE LINES, OR COMPLETED THE TEST. 


; DISABLE INTERRUPTS, 


; CLEAR THE INTERRUPT VECTORS. 


| 
50$: SETPRI #PRIO7 


;DISABLE ALL INTERRUPTS, 


SEQ 219 


li FUNC TST PART4 


DH - 
HARDWARE 


8631 
8632 
8633 
8634 
8635 
8636 


8637 
8638 


TEST 
035720 


012700 
104441 


016700 
104436 


016700 
104436 


012767 
004767 


012700 


104441 
005067 


104401 


Ni 
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000340 
144236 
144226 
sss 


000340 
144232 


147346 


60$: 


CLRVEC 
CLRVEC 
MOV 
JSR 
SETPRI 


CLR 
ENDTST 


TXVECA 


RXVECA 


©9142. ,ERRNBR 
PC ,REPSMR 
oPRIO7 


CTRLCF 


MOV 
RAP 


T 
sRETURN TX INT VECTOR TO UNUSED POOL. 
MOV 


TRAP 
sRETURN RX INT VECTOR TO UNUSED POOL. 


MOV 
TRAP 


#PRIO7,RO 
C$SPRI 


TXVECA,RO 
CsCvec 


RXVECA,RO 
CsCvec 


sSELECT NUMBER 9142 FOR THE NEXT ERROR REPORT. 


sREPORT ERROR SUMMARIES IF CALLED FOR 


;OISABLE ALL INTERRUPTS. 
MOV 


T 
; INDICATE THAT WE ARE NOT WITHIN A 
L10033:; 


TRE” 


RAP 
TEST, 


#PRIO7 ,RO 
C$SPRI 


Cse rs’ 


GS 


EQ 220 


1 
HARDWAR 


8677 


8678 


UNC TST PARTG 
Ss! 


5 
. 


035770 
035770 


126727 
001402 
000167 


012700 
104441 


012746 
012746 
016746 
012746 
104437 
062706 


012746 
012746 
016746 
012746 
104437 
062 70€ 


012700 


b c. 
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144200 
000524 
000240 
000010 
177777 
000001 
021761 
012542 


144424 
144144 


161252 
0004 36 


000340 


400300 
027426 
144054 
000003 


000010 
000300 
027216 
144024 
000003 
000010 


000200 


000002 


144240 
144172 
137260 
147254 
147250 


.SBTTL HARDWARE TEST - SPLSPD - 


bo PPO ESESEEESESEEEESESEESEEDOSFEOSEEEEEEEEDEEEODEEEEEEEEEEODEREEEE EEE EEODEEOESS 


;¢ - SPLIT SPEED TEST - 
;¢ THIS TEST IS USED TO VERIFY THE SPLIT SPEED CAPABILITIES OF THE DHU11, 
;¢ AND THE CORRECT OPERATION OF THE A E€ B BAUD RATE GROUP SELECTION, 
3¢ THE TEST USES THREE SETS OF BAUD RATES (38.4,50; 1200,75; 2000,2400). 
34 THIS TEST WILL ONLY EXECUTE IF THE STAGGARED LOOPBACK MODE IS SELECTED. 
;¢ THE SPECIAL STAGGARED LOOPBACK BERG CONNECTOR MUST BE FITTED, 
;¢ 
b= ~SORAAOEESEEEREEEEEEEEEEEEEEEREEEAEREREEHEDEDOEEEEEEEEREEEREEEEEESEESEEOSESES 
BGNTST - 
CMPB LOPBCK , #2 sCHECK MODE SELECTED. 
BEQ 2s s00 NOT EXIT IF STAGGERD LOPBCK MODE SELECTED. 
JMP 60$ sEXIT THIS TEST. 
2$: SETPRI #PRIOS sALLOW LTC INTERRUPTS. 
MOV #PRIOS RO 
TRAP CSSPRI 
TNUM == TNUM « 1 s INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. (92) 
MOV @-1,CTRLCF sINOICATE THAT WE ARE IN A TEST. 
MOV @1,ERRTYP :SET ERROR TYPE IN ERROR TABLE. 
MOV #9201. ,ERRNBR s;SET THE FIRST ERROR NUMBER IN ERROR TABLE. 
MOV @EMS2OL.,ERRMSG ;SET ERROR MESSAGE ADDRESS IN ERROR TABLE. 
CLR ER sINITIALIZE THE “REPORT ERROR SUMMARY” FLAGS. 
CLR FERROR sCLEAR THE “AT LEAST ONE ERROR” FLAG. 


3; * 

; RESET THE DUT TO A KNOWN STATE, REMOVE STATUS CODES FROM THE FIFO. 
; CLEAR TX AND RX INTERRUPT ENABLE BITS. 

3 THIS SUBROUTINE REPORTS ERROR »>>>> 9201 <<cc<, 

| Bag 


os PC.CLNRST sRESET THE DuT. 
.°6 
JMP 60% sABORT THE TEST IF FATAL ERROR FOUND IN RESET. 
7 
:; OISABLE ALL INTERRUPTS. 
; SET UP DMA TX ANDO RX INTERRUPT SERVICE ROUTINES. 
3 - 
SETPRI OPRIO7 ;sOISABLE ALL INTERRUPTS. 
MOV SPRIO7,RO 
TRAP CSSPRI 
SETVEC TXVECA,@TXDMA, ePRIOG ;sSELECT DMA TX INT SERVICE RIN. 
MOV SPRIO6, ) 
MOV @TXDMA, - ) 
MOV TXVECA, ) 
MOV @3, (SP) 
TRAP CsSvECc 
ADD 210,SP 
SETVEC RXVECA, ORXCHRS, OPRIOG ;SELECT Rx IN! SERVICE RIN, 
MOV OPRIOG, (SP) 
MOV ORXCHRS, (SP) 
MOV RXVECA, -( SP) 
MOV e3, -( SP) 
TRAP CsSveEc 
ADD 210,5P 
SETPRI @PRIO4 ALLOW INTERRUPTS, 
MO\ PPRLOS RO 


Ukndant MS F5! 


0361600 
Q 


- 036162 


036166 


8 036172 


036176 


PARTS 


104441 


012705 
004 767 


012700 
004767 


012705 
012500 


012767 


004 767 
103126 
012767 


004767 
004767 


004 767 
005767 
001404 
032767 
001473 


012767 


004 767 
005 767 


MACBP <PA°0° 


177777 
167236 


003302 
161156 


005100 


162320 
005154 


177400 
166444 
021762 


164460 
021765 


164646 
162322 


164672 
143722 


000100 


021773 


167720 
143672 


143776 
147050 


147034 


143650 


146774 


‘or. 
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+ TRAP CS$SPRI 


; ENABLE TRANSMITTERS ON ALL LINES, 


i 
MOV @MAPLNS ,RS sPASS ACTIVE LINE BIT MAP, 
JSR PC, TXENBL sENABLE TRANSMISSIONS ON ALL LINES. 


3° 
; CLEAR ERROR TABLE PRIOR TO PERFOMING TX/RX TES]. 


a 
MOV ®ERCNTB,RO sGET THE BASE ADDRESS OF THE ERROR COUNTER TBHL. 
JSR PC,C! R16W sCLEAR THE RX ERROR COUNTERS TABLE. 


3¢ 

; PERFORM SPLIT SPEED DMA Tx AND Rx 
; BAUD RATES. 

; 38.4K, 50 ; 1200, 75 ; 2000, 2400. 


ON ALL SELECTED LINES AT THE FOLLOWING 


INITIALISE DMA TX/RX PARAMETERS IN THE CONTROL BLOCK FR EACH OF THE BAO 
; RATES MENTIONED ABOVE 


; 8 BITS/CHAR,1 STOP BITS.ODD PARITY. 
;- 


MOV @SPLPRB,RS sGET BASE ADDRESS OF LPR PARAMETER TABLE. 
4$: MOV CRS )+ RO sGET LPR CONTENTS FOR LINGRP II. 
MOV CRS)+,R1 sGET LPR CONTENTS FOR LINGRP I. 
JSR PC ,.GETTIM sGET TIME -OQUT BASED ON MINIMUM BAUDRATE IN USE. 
MOV @SOP 2B ,R2 sSET UP THE START ADR OF THE DATA PATTERN. 
MOV CRS)+,R3 sGET NUMBER OF REPEAT TRANSMISSION ON LINGRPII. 
MOV CRS)+,R4 s;GET NUMBER OF REPEAT TRANSMISSION ON LINGRPI. 
MOV @177400, IBM sSET THE UNUSED BIT MASK FOR 8 BITS/CHAR. 
JSR PC. SPL SUP 3SET UP CONTROL BLOCK ETC, FOR TX/Rx, 
MOV 09202. .ERRNBR ;SET THE ERROR NUMBER TO 9202. 
:* 
; THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9202 THRU 9204 CCeeK, 
ee 
JSR PC ,PUFIFR sPURGE THE DUT RECEIVE CHARACTER FIFO. 
BCC 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
MOV €9205. ,ERRNBR ;SET ERROR NUMBER TO 9205. 
JSR PC ,PURRXB sPURGE THE RX CHAR BUFFER IN MEMORY. 
JSR PC. INIDMA ;SEND THE FIRST BATCH OF DATA PATTERNS. 
3* 
s THIS ROUTINE REPORTS ERRORS WITH NUMBERS »>>>> 9205 THRU 9210 CCKKK, 
JSR PC ,ROCHRS sREAD AND VERIFY THE Rx CHARACTERS. 
TST FERROR sHAS AN ERROR BEEN DETECTED ? 
BEQ 6$ sNO, THEN BRANCH. 
BIT 9B ITO06 ,OP TION sHAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEG 50$ sNO, THEN EXIT THE TEST. 
6$: MOV 99211. ,ERRNBR sSET THE ERROR NUMBER TO 9211. 


3? 
s THIS ROUTINE REPORTS ERRORS WITH NUMBERS »>>>> 9211] THRU 9214 c«cac, 


i 
JSR PC, TXRREP sREPORT FINAL ERRORS FROM RXx/RXx, 
TST FERROR sHAS AN ERROR BEEN DETECTED ? 


BitkodAnt “E45! 


8735 
8736 
8737 
8738 
8739 
8740 
8741 
8742 
8745 
8744 
8745 


036332 


036354 


PARTS 


001404 
032767 
001457 


012767 


010246 


004767 
103052 
012767 


004767 
004767 


904767 
005767 
001404 
032767 
001417 


012767 


De 
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BEQ 8$ :NO, THEN BRANCH. 
000100 143620 BIT OBITO6,OPTION  ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEQ 50$ sNO, THEN EXIT THE TEST. 
021777 146744 28s: MOV ®9215.,ERRNBR ;SET ERROR NUMBER TO 9215. 
3? 
; SWAP PARAMETERS TO ALLOW FOR BOTH CHANNELS [0 BE EXERCISED. 
’ MOV _—R?2, -( SP) sPUSH THE START ADDRESS ONTO THE STACK. 
MOV —— RO.R2 ; 
MOV R1,RO 8 
MOV =—R2-_RI ;SWAP THE TWO SETS OF 
MOV = R3.R2 ; PARAMETERS OVER. 
MOV R4,R3 3 
MOV R2,R4 3 
MOV (SP)+,R2 sRESTORE THE START ADDRESS. 
166306 JSR PC, SPLSUP sSET UP CONTROL BLOCK ETC, FOR Tx/Rx. 
: . 
; THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9215 THRU 9217 <cccc<. 
164330 ; JSR PC, PUFIFR sPURGE THE DUT RECEIVE CHARACTER FIFO. 
Bcc 60$ sABORT THIS TEST IF FIFO WOULD NOT PURGE. 
022002 146704 MOV 9218.,ERRNBR ;SET ERROR NUMBER TO 9218. 
164516 JSR PC ,PURRXB ;PURGE THE RX CHAR BUFFER IN MEMORY. 
162172 JSR PC, INIDOMA ;SEND THE FIRST BATCH OF DATA PATTERNS. 
3° 
: THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9218 THRU 9223 <cccc. 
3 - 
164542 JSR PC .ROCHRS sREAD AND VERIFY THE RX CHARACTERS. 
143572 TST  FERROR sHAS AN ERROR BEEN DETECTED ? 
BEQ 10$ ;NO, THEN BRANCH. 
000100 143520 BIT @BITO6,OPTION ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEQ 50$ 3NO, THEN EXIT THE TEST. 
022010 146644 103: MOV ©9224.,ERRNBR  ;SET ERROR NUMBER TO 9224. 
3;* 
; THIS ROUTINE REPORTS ERRORS WITH NUMBERS >>>>> 9224 THRU 9227 <c<<<. 
3 — 
167570 JSR PC, TXRREP sREPORT FINAL ERRORS FROM RX/RX. 
143542 TST FERROR sHAS AN ERROR BEEN DETECTED ? 
BEQ 12$ 3NO, THEN BRANCH. 
000100 143470 BIT OBITO6,OPTION ;HAS EXTENDED ERROR REPORTING BEEN REQUESTED ? 
BEQ 50$ ;NO, THEN EXIT THE TEST. 
005130 12%; CMP = R'5., OSPLPRE ;CHECK IF ALL PARAMETERS HAVE BEEN DONE. 
BLO. «4 :IF NOT DONE LOOP TO SELECT THE NEXT PARAMETER. 
3* 
: DISABLE INTERRUPTS. 
; CLEAR THE INTERRUPT VECTORS. 
y 
50$: SETPRI #PRIO? ;DISABLE ALL INTERRUPTS. 
000340 MOV OPRIOT_.RO 
TRAP =—s-s CSSPRI 
CLRVEC TXVvECA ;RETURN TX INT VECTOR TO UNUSED POOL. 
143454 MOV TXVECA,RO 


“EO 22% 


E2 
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HARDWARE TEST - SPLSPD 

araq C20514 104436 TRAP =—s- C$CVEC 

9 

8790 036516 012767 022014 146572 MOV  09228.,ERRNBR ;SELECT NUMBER 9228 FOR THE NEXT ERROR REPORT. 

8791 036524 004767 165300 JSR PC ,REPSMR sREPORT ERROR SUMMARIES IF CALLED FOR. 

8792 036530 005067 143464 60$: CLR = CTRLCF ; INDICATE THAT WE ARE NOT WITHIN A TEST. 

8793 036534 ENDTST 

036534 1.10034; 


036534 104401 TRAP CseETS!T 


DM -11 FUNC TST PART4 
HARDWARE TEST 


036602 


036610 
036614 
036614 
036614 


000011 
012767 
012767 
016702 
012703 
020203 
001411 


012701 
104455 
022125 
012572 
015626 
012767 


005067 


104401 


MACRO M3200 
- REPBMP 


000011 
177777 
143732 
002512 


012746 


002512 
143404 


143514 
143446 


143700 


= 
t 
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-SBTTL HARDWARE TEST - REPBMP . 
gee PPABEEEEEEEEREEEREEEDAAEEREEEERERAEBAEEEEEAREDEEEEAEAEHERERAEEDEHAEAEA EERE RES 
34 - REPORT ANY BMP CODES IN THE QUEUE - 
;4 THIS IS A PSEUDO-TEST USED TO REPORT ANY BMP CODES THAT WERE F OUND 
;* oy Mi DUT’S FIFO DURING PREVIOUS TEST, AND LOGGED IN THE BMP CODE 
3 * . 
34 IT IS UNLIKELY THAT RUNNING THIS PSEUDO-TEST ALONE WILL PRODUCE ANY 
34 ERROR REPORTS. 
37 
s-- SREREREREREREEEEEEEEEEESEEAEEEEMEEEREREAEEREEREAAEEREEREEREEEEAEEA DEERE DEES 
BGNTST - 
TNUM == TNUM + 1 ; INCREMENT THE ASSEMBLY TIME TEST COUNTER. 
MOV @TNUM, TSTNUM ;SET UP THE TEST NUMBER. (93) 
MOV #-1,CTRLCF ;s INDICATE THAT WE ARE IN A TEST. 
MOV BMPCOP ,R2 ;GET THE CONTENTS OF THE POINTER. 
MOV #BMPCQB ,R3 ;GET THE START ADDRESS OF THE QUEUE. 
CMP R2,R3 sSEE IF THE POINTER HAS MOVED FROM THE BASE. 
BEQ 60$ sEXIT NO CODES IN THE QUEUE. 


; THERE IS AT LEAST ONE BMP CODE IN THE QUEUE. REPORT THE ERROR. 
= 
;REPORT ERROR BMP CODE FOUND IN TEST NN, BMP CODE: NNNNNN” 


MOV #EM9304 ,R1 ;FASS THE FIRST MESSAGE TO BE REORTED. 
ERRDF 9301.EM9301,ER9301 ; >>>>> ERROR 99301 <<ccc, 
TRAP CSERDF 
. WORD 9301 
. WORD EM9301 
. WORD ER9S301 
MOV ®BMPCQB.BMPCQP ;SET POINTER BACK TO THE BEGINING OF THE QUE. 
60$: CLR CTRLCF sINDICATE THAT WE ARE NOT WITHIN A TEST. 
ENDTST 
10035: 
TRAP CsETST 


SEQ 22% 


DH 11 FUNC 


HARDWARE 


8866 


8867 
8868 
8869 


8870 
8877 
8878 


TES 


{st PART4 


000022 


177776 


001031 


ae” 1) ee 15-MAR -84 09:48 PAGE 140 
- REPB 


-SBTTL HARDWARE PARAMETER CODING SECTION 


BGNHRD 


Ge 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


sDEVICE CSR ADDRESS QUESTION: 


GPRMA 


HWPTQ1,0,0,160000,177776, YES 


sDEVICE INTERRUPT VECTOR QUESTION: 


GPRMA 


HWPTQ2,.2,.0,40,776, YES 


sACTIVE LINES BIT MAP QUESTION: 
GPRMD 


HWPTQ3,4,0,MAPLNS,O,MAPLNS, YES 


;TYPE OF LOOPBACK QUESTION: 
GPRMD 


ENDHRD 


HWPTQL: 


-ASCIZ 


HWPTQ4 .6,0,377,1,5., YES 


“CSR ADDRESS: 7 


THE 


LSHARD:: 


L 10036: 


-WORD 110036 -L SHARD/2 


T sCODE 
HWPTOQ1 
TSLOLIM 
TSHILIM 


TSCODE 
HWP TQo 
TSLOLIM 
TSHILIM 


TSCODE 
HWP TQS 
MAPLNS 
TSLOLIM 
TSHILIM 


TSLOLIM 
TSHILIM 
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8879 036702 


8880 


8881 


0 
8682 


8883 
8884 


036705 
036710 
036713 
036716 


HWPTQe: 


HWPTQ3: 


HWPTQ4: 


-EVEN 


- 
i Pa 

a 

Diane 


-ASCIZ /INTERRUPT VECTOR ADDRESS: / 

-ASCIZ /ACTIVE LINE BIT MAP: / 

-ASCII /TYPE OF LOOPBACK (1=INTERNAL, 2=H3029 OR H3277, 3=H325/<15><12> 
sASCIZ 7 4=MODEM, S=KEYBOARD ECHO): / 


HAROWAR 


FUNC TST PARTS 
f PARAMETER CODING 


037134 


037142 


037144 
037144 
037146 
037150 


037152 
037152 
037154 
037156 


037160 
037160 


037162 
037162 
037164 
037166 
037170 
037172 


037174 
037174 


037174 
037177 
037202 
037205 
037210 
037213 


000017 


000130 
037174 
000020 


000130 
037250 
000040 


000130 
037330 
000100 


006044 


001052 
037363 
177777 


000000 
177777 


M 


Aga n 200 


[ 
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120 
124 
116 
040 
115 
122 


i< 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


;*? 


; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 


; WITH THE OPERATOR. 


;UNIT NUMBER PRINTOUT QUESTION: 
SWPTQ1,0,20, YES 


BGNSF T 


GPRML 


L$SOFT:: 


sREPORT NUMB OF BITS TESTED IN DMA ADDR TEST QUESTION: 


sEXTENDED ERROR REPORTING QUESTION: 
SWPTQ3,0,100, YES 


GPRML 


GPRML 


SWPTG2,.0,40, YES 


-WORD .10037-L$SOFT 72 


. WORD 


T $CODE 
SwWPTQ1 
20 


T $CODE 
SWPTQ2 
40 


T $CODE 
SWPTQ3 
100 


3 * 
; IF EXTENDED ERROR REPORTING IS NOT REQUIRED THEN SKIP THE NEXT QUESTION. 


3 * 


XFERF 


sNUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE QUESTION: 


2s: 


GPRMD 


ENOSF T 


SWPTQ1: 


SWPTQ4,2,0,177777,0,177777, YES 


L1003?7;: 


- WORD 


-EVEN 


/REPORT UNIT NUMBER AS EACH UNIT IS TESTED: / 


T S$CODE 


TSCODE 
SWPTG4 
177777 
TSLOLIM 
TSHILIM 


DHU-11 FUNC TST PART4 
SOFTWARE PARAMETER CODING SECTION 


8940 


8941 


8942 


8943 
8944 


037216 
037221 
037224 
037227 


MACRO M1200 
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SWPTQ3: 


SWPTQ4: 


-EVEN 


SWPTQ2: .ASCIZ /REPORT NUMBER OF BITS TESTED IN DMA ADDR TEST: / 


-ASCIZ /EXTENDED ERROR REPORTING: / 


-ASCIZ 


/NUMBER OF INDIVIDUAL DATA ERRORS TO REPORT ON A LINE: / 


rPH-11 F TST PARTS 
SOF THARE “PARARE TEA CODING SECT 


8955 037452 
8956 037452 


&968 037522 


037522 

037524 

037526 
8969 037526 
8970 


000000 
000000 


000001 


MACRO 


mM 
I 


1200 
ON 
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$PATCH:: 


L$LAST:: 


LASTAD 


ENDMOD 


. END 


24 


Ke 
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SYMBOL TABLE 

ACTLNS 002172 G CHCNTB 003442 G CSOPEN= 000034 EF9013 007141 G ENDIT 030400 
ADDR 025220 CHKEXT 016316 G C$PNTB= 000014 EF9019 007206 G ERCNTB 003302 G 
ADR OG CHKLOS 016416 G CSPNTF= 000017 EF9020 067225 G ERLTBL 003602 G 
ADRPTR 017270 G CHRTOT 002476 G CSPNTS= 000016 EF9101 007306 G ERRBLK 005322 G 
ALTFLD 016020 G CKCHR 016520 G CSPNTX= 000015 EF9103 007311 G ERRMSG 005320 G 
ASSEMB= 000010 CKFRPR 016736 G C$QIO = 000377 EF9301 007357 G ERRNGR 005316 G 
BCOUNT 002306 G CKINAC 017150 G C$RDBU= 000007 EF9302 007435 G ERRIYP 005314 G 
BDRMSG 010020 G CKTRAP 017256 G CSREFG= 000047 EMLMSG 013074 G ERSMRF 002500 G 
BITSTD 033676 CKTRPB 017306 G C$RESE= 000033 EMO101 022070 G ERO101 013500 G 
BITTBL 002364 G CLKBRL 002272 G CSREVI= 000003 EMO102 022154 G EROSO3 014032 G 
BITO = 000001 G CLKCSR 002270 G CSRFLA= 000021 EMO103 010047 G ER1603 014070 G 
BITOO = 000001 G CLKHRZ 002276 G CSRPT = 000025 EMOS5O9 010105 G ER6201 014162 G 
BITOL = 000002 G CLKINT 027146 G C$SEFG= 000046 EM1601 010111 G ER9001 014420 G 
BITO2 = 000004 G CLKVEC 002274 G C$SPRI= 000041 EM4401 010174 G ER9002 014520 G 
BITO3 = 000010 G CLNRST 017336 G C$SVEC= 000037 EM4402 010224 G ER9003 014676 G 
BITO4 = 000020 G CLR16W 017360 G C$TPRI= 000013 EM4403 010272 G ER9004 015070 G 
BITOS = 000040 G C 017402 G DELAY 017456 G EM4404 010367 G ER9005 015204 G 
BITO6 = 000100 G CSRA 002200 G OFPTBL 002150 G EM4405 010426 G ER9101 015444 G 
BITO7 = 000200 G CSRO = G DIAGMC = EM4406 010522 G ER9102 015504 G 
BITO8 = 000400 G CTRLCF 002220 G DLPRTB 005072 G EM4407 010576 G ER9301 015626 G 
BITO9 = 001000 G C$AU = 000052 DLPRTE 005100 G EM4408 010660 G EVL = G 
BIT1 = 000002 G C$AUTO= 000061 W 017570 G EM4409 010723 G EXCNTB 003242 G 
BIT1O = 002000 G CSBRK = 000022 DMTSTA 002222 G EM4410 010760 G EXTMSG 013143 G 
BIT11 = 004000 G C$BSEG= 000004 OM16B 017516 G EM4411 011007 G ESEND = 002100 
BIT12 = 010000 G C$BSUB= 000002 017712 G EM6201 011054 G ESLOAD= 000035 
BIT13 = 020000 G CSCEFG= 000045 OPENDB 003142 G EM6202 011106 G FDATA 002206 G 
BIT14 = 040000 G CSCLCK= 000062 DOPLENB 003202 G EM6301 011115 G FDATO = G 
BIT15 = 100000 G CSCLEA= 000012 OPRSQB 004642 G EM8901 011146 G FERROR 002224 G 
BIT2 = 000004 G C$CLOS= 000035 DPRSQE 005042 G EM9003 011173 G FFREM 002226 G 
BIT3 = 000010 G C$CLP1- DRADRT 002200 G EM9004 011215 G FINACT 020002 G 
BIT4 = 000020 G CSCVEC= 000036 DROP 030454 EM9006 011233 G FRPSUP 020062 G 
BITS = 000040 G CSDCLN= 000044 DUMY 033700 EM9007 011306 G FSLSA 002206 G 
BIT6 = 000100 G C$D0DU= 000051 EDPFMT 005422 G EM9008 011371 G FSLSO = G 
BIT? = 000200 G CSDRPT= 000024 EDROP 030532 EM9009 011452 G FSAU = 000015 
BIT8 = 000400 G C$DU = 000053 EF .CON= 000036 G EM9010 011476 G FSAUTO= 000020 
BIT9 = 001000 G CSEDIT= 000003 EF .NEW= 000035 G EM9011 011522 G FSBGN = 000040 
BMPCQB 002512 G CSERDF= 000055 EF .PWR= 000034 G EM9012 011532 G FS$CLEA= 000007 
BMPCQE 002712 G CSERHR= 000056 EF .RES= 000037 G EM9013 011542 G FSDU = 000016 
BMPCQP 002510 G CSERRO= 000060 EF .STA= 000040 G EM9014 011551 G FSEND = 000041 
BOE = 000400 G CSERSF= 000054 EFOSO3 005530 G EM9015 011645 G FSHARD= 000004 
BRLEVL 002175 G CSERSO= 000057 EF1601 005535 G EM9016 011661 G FSHW = 000013 
BRTBLB 002424 G CSESCA= 000010 EF1603 005567 G EM9017 011670 G FSINIT= 000006 
BRIBLE 002464 G CSESEG= 000005 EF4401 005631 G EM9025 012001 G FSJMP = 000050 
BUFBAS 003602 G CSESUB= 000003 EF6201 005746 G EM9026 012075 G F$MOD = 000000 
BUFEND 004602 G CSETST= 000001 EF6202 006061 G EM9027 012121 G FSMSG = OOOO11 
BUFMID 004202 G CSEXIT= 000032 EF6203 006157 G EM9028 012201 G FSPROT= 000021 
BUF3QT 004402 G C$GETB= 000026 EF9001 006254 G EM9030 012260 G FSPWR = 000017 
CALMSL 016072 G C$GETW= 000027 EF9002 006336 G EM9101 012335 G FSRPT = 000012 
CBB 003122 G C$GMAN= 000043 EF9003 006410 G EM9102 012377 G FSSEG = 000003 
CBDPAA 003126 G C$GPHR= 000042 EF9004 006437 G EM9104 012466 G F$SOFT= 000005 
CBDPLA 003130 G C$GPLO= 000030 EF9005 006467 G EM9201 012542 G FSSRV = 000010 
CBDPNA 003132 G C$GPRI= 000040 EF9006 006520 G EM9301 012572 G F$SUB = 000002 
CBLNCA 003124 G CSINIT= 000011 EF9007 006544 G EM9302 012651 G FsSw = 000014 
CBLPBA 003136 G CSINLP= 000020 EF9008 006640 G EM9303 012701 G FSTEST= 000001 
CBLPRA 003122 G C$MANI= 000050 EF9009 006677 G EM9304 012746 G GETBDR 020326 G 
CBMAPA 003134 G C$MEM = 000031 EF9010 006736 G EM9401 013022 G GETCHR 020454 G 
CBOFSA 003140 G C$MSG = 000023 EF9012 007025 G ENDETB 004602 G GETPRM 030176 


Orde UNC TST PART4 


GETTIM 020536 G 


MOE G 
HWPTQ1 036664 


HWPTQ2 036702 
HWPTQ3 036735 


IBE = 010000 
IBM 002232 
IDU = 000040 
IER = 020000 


IESTAT 002234 
— 020614 
ISR = 000100 
IXE = 004000 
IsAU = 000041 
I$AUTO= 000041 
ISCLN = 000041 
IsOU = 000041 
ISHRD = 000041 
ISINIT= 000041 
I$MOD = 000041 
I$MSG = 000041 
ISPRCT= 000040 
ISPTAB= 000041 
ISPWR = 000041 
ISRPT = 000041 
I$SEG = 000041 
I$SETU= 000041 
ISSFT = 000041 
I$SRV = 000041 
I$SUB = 000041 
IsTST = 000041 
JSJMP = C00167 
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LGRP1M 002236 G 


LGRP2M 


002240 G 
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LINBIT 020706 G L$SPTP 002024 
LNCTRA 002210 G L$STA 002030 
LNCTRO= 000010 G L$SW 002162 
LOE 040000 G L$TEST 002114 
LOPBCK 002174 G L$TIML 002014 
LOT 000010 G L$UNIT 002012 
LPCSLT= 000036 G L10000 002160 
LPRA 002204 G L10001 002166 
LPRO G L10002 013614 
L$sACP 002110 G L10003 014066 
L$APT 002036 G L10004 014160 
L$AU 030540 G L10005 014416 
L$AUT 002070 G L10006 014516 
L$AUTO 030410 G L10007 014674 
LSCCP 002106 G L10010 015066 
L$CLEA 030412 G L10011 015202 
L$CO 002032 G Li0012 015442 
L$DEPO 002011 G L10013 015502 
L$DESC 005374 G L10014 015624 
L$DESP 002076 G L10015 016016 
L $DEVP G L10016 027564 
L$OISP 002124 G L10020 030406 
L$OLY 002116 G L10021 030410 
L$DTP 002040 G L10022 030426 
L$DTYP 002034 G L10023 030536 
L$DU 030430 G L10024 030544 
L$DUT 002072 G L10025 031026 
LSDVTY 005364 G L10026 031270 
LSeF 002052 G L10027 032222 
LSENVI OO G L10030 033706 
LS$SERRT 005314 G L10031 034322 
LSETP 002102 G L10032 035000 
LSEXP1 002046 G L10033 035766 
LSEXP4 002064 G L10034 036534 
LSEXPS 002066 G L10035 036614 
L$HARD 036620 G L10036 0 

LSHIME 002120 G 110037 037174 
LS$HPCP 002016 G MAPLNS= 177777 
LSHPTP 002022 G MFUNIT 007535 
L $HW 002150 G MMENAB 002322 
L$Ice 002104 G MMPRES 002320 
L$INIT 027574 G MMSRO 002314 
L$LADP 002026 G MMSR3 0023516 
L$LAST 037526 G MODSUP 020734 
L$LOAD 002100 G MSFMT1 007566 
L$LUN 002074 G MSFMT2 007626 
L$MREV 002050 G MSG1 013616 
L$NAME 002000 G MSG2 013674 
L$PRIO 002042 G MSG3 013753 
L$PROT 027566 G MSLCNT 002312 
L$PRT 002112 G MSLGET 021074 
L$REPP 002062 G MSLOOP 021210 
L$REV 002010 G MSSRPT 021224 
L$RPT 027560 G MSTICK 002310 
L$SOFT 037136 G MUL16U 021440 
L$SPC 002056 G NDERPT 002164 
L$SPCP 002020 G NDPMSG 013224 
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PRIOS 
PRIO6 
PRIO7 
PROTBL 
PRPARE 
PRTLPR 


021514 


022566 


G 


oq 
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SPLPRE 


022650 

022732 

023134 

002202 

000002 

023170 

023630 

023670 

024030 

024056 

024170 
024236 
002716 
000030 
003120 
000020 
000100 
002714 
002712 
002720 
027216 
003542 
002504 
024304 
024400 
024474 
024534 
003402 
000002 
002202 
002246 
002166 
000002 
000004 
000006 
000010 
000012 
000014 
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SYMBOL TABLE 

SPLSUP 024704 G TRPAD2 017320 G TXRON 026220 G T$SUBN= 000000 T3 031272 
STGTRB 005274 G TSTNUM 002260 G TXRREP 026246 G T$TAGL= 177777 T4 032224 
STPSW 025204 G TXADIA 002212 G TXRXLB 005234 G T$TAGN= 010040 TS 033710 
SUCSS 033704 TXAD10= 000012 G TXRXLE 005274 G TSTEMP= O00000 T6 034324 
SVCGBL = 000000 TXAD2A 002214 G TXVECA 002170 G TSTEST= 000011 T7 035002 
SVCINS* 000001 TXAD20= 000014 G TSARGC= 000003 T$TSTM= 177777 T8 035770 
SVCSUB= 000001 TXBFCA 002216 G TSCODE= 001052 T$TSTS= 000001 T9 036536 
SVCTAG= 000001 TXBFCO= 000016 G TSERRN= 022125 T$$AU = 010024 UAM = 000200 
SVCTST= 000001 TXCNTB 003502 G TSEXCP= 000000 T$$AUT= 010021 UBRFMT 007722 
SWPTQ1 037174 TXDBLF 002506 G T$FLAG= 000040 T$$CLE= 010022 UNITN 002176 
SWPTQ2 037250 TXOMA 027426 G T$GMAN= 000000 T$$DU = 010023 UNSOIV 026362 
SWPTQ3 037330 TXDONE 025224 G TSHILI= 177777 T$$HAR= 010036 UPOCHR 026516 
SWPTQ4 037363 TXDONF 002502 G T$LAST= 1 T$$HW = 010000 VANSUP 026614 
S$LSYM= 010000 TXOSBL 025334 G TSLOLI= TS$INI= 010020 WAIBIS 027012 
TERMSG 013437 G TXENBL 025430 G T$LSYM= 010000 T$$MSG= 010015 WORD1 002266 
TIMERL 002500 G TXENBM 002262 G T$LTNO= 000011 T$$PRO= 010017 WTWLNC 027066 
TIMER2 002302 G TXFRPR 025524 G TSNEST= 177777 T$$RPT= 010016 WTWLPR 027116 
TIMERS 002304 G TXIEO 025620 G T$NSO = 000000 T$$SOF= 010037 X$ALWA= 000000 
NUM = 000011 G TXIE1 025660 G T$NS1 = 000005 T$$SW = 010001 X$FALS= 000040 
TP4BRT 027362 G TXINTF 002264 G TSPTNU= 000000 T$$TES= 010035 XSOFFS= 000400 
TP4FLG 002254 G TXPTRB 003342 G TSSAVL= 177777 TL 030546 G X$TRUE= 000020 
TP4RTN 027404 G TXRINI 025704 G TSSEGL= 177777 T2 031030 G SPATCH 037452 
TP4VEC 002256 G TXROFF 026160 G 

- ABS. 037526 000 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 30240 WORDS ( 119 PAGES) 
OrNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:05:13 

~2DMXAO BIN, CZDMXAO.LST/-SP=SVC34R/ML,.CZDHXAC.P11 


